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I . INTRODUCTION 



SPL/M (Small Programming Language for Microprocessors) is 
based on the language PL/M, initially developed by the Intel 
Corx oration. 

SPL/M is a block-structured language which features 
arbitrary length identifiers and structured programming 
constructs. It is suitable for systems programming on small 
com-ruters, since the compiler requires only 20K of memory to run. 
Either two cassette decks or a disk are also required. 

The language can be compiled in only one pass, which means 
that the source code has to be read only once. 

Unlike most high-level language translators available for 
microprocessors, SPL/M is a true compiler: it generates absolute 
6800 object code which, requires no run-time interpreter. Due to 
extensive intra-statement optimization, the generated code is 
almost as efficient as the equivalent assembly language. 

The compiler has a number of compile- time options, including 
a printout that contains the ~ interlisted object code. 
Syntactical error messages use position indicators to indicate 
exactly where an error occurs. 

This manual has been organized to be usable as both a 
tutorial and a reference guide. In addition to the many examples 
in the text, a complete SPL/M program is presented in Appendix C. 

As an example of the type of application SPL/M is suited 
for, this entire manual v/as formatted using a text processing 
system written in 800 lines of SPL/M. 

Some details of the compiler implementation are presented in 

the paper "SPL/M - A Cassette-Eased Compiler", by Thomas w. 

Crosley, in the Conference Proceedings , Second Wgs t Coast 
Computer Faire , March, 1978. 
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II. PRIMITIVES 



An SPL/M program consists of primitives (reserved words, 
identifiers, and constants), along with special characters 
( operators ) . 

One or more blanks (spaces) are required between any two 
primitives on the same line, to tell them apart. Blanks are 
allowed anywhere else, except in the middle of a primitive or a 
two character operator (such as >=) . A carriage return is 
treated the same as a blank*, therefore statements can spill over 
onto as many lines as necessary. 

Comments may be embedded in an SPL/M program anywhere a 
blank is legal. Comments are delimited by a /* ... */ pair: 

/* COMMENTS MAY GO OVER 
MORE THAN ONE LINE */ 

Identifiers 

An identifier is a programmer assigned name for a variable, 
procedure, or symbolic constant. Identifier names may be up to 
31 characters long. 

The first character must be alphabetic (A-Z), while the 
remaining characters may be either alphanumeric (A-Z, 0-9) or the 
separation character ($). The latter is completely ignored oy 
the compiler: an identifier with imbedded $ s is equivalent to 
the same identifier with the $'s omitted. 



Examples of valid identifiers: 



ACIA$N0 



(same variable) 



ACIANO 

BUEFER1 

A$RATHER$LQNG$PROCEDURE$NAME 

Identifier names must not conflict with the reserved words 
of SPL/M, such as DECLARE, PROCEDURE, etc. A complete list of 
reserved words for both Versions 1 and 2 of SPL/M is provided in 
Appendix D. 

All identifers must be declared before they are referenced. 
Variables and symbolic constants are defined via the DECLARE 
statement (Section Vj ; procedures are defined via the PROCEDURE 
statement (Section VII). 
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III. DATA REPRESENTATIONS 



Constants 



Constants can be either a number or a character string* As 
their name implies, their value remains constant during program 
execution* 

A numeric constant, or number, is a string of digits 
representing an unsigned integer in the range 0-65535. A number 
is assumed to be decimal unless it is terminated by the letter H, 
indicating hexadecimal. The first character of a hexadecimal 
constant must always be numeric (a leading zero is always 
sufficient). 

Examples of numeric constants: 





10 

OAH 



32 

20H 



65535 
OPZFEH 



A character constant, or string, consists of one or more 
ASCII characters enclosed in apostrophes. A null string (i.e. 
") is not permitted. Imbedded apostrophes are represented by 
two consecutive apostrophes (e.g. DON'T). 

Constants of one or two characters are equivalent to the 
numeric constant representing the ASCII code for the 
character(s). In a two character constant, the left-most 
character is placed in the most significant byte. 

Character constants of more than two characters may only 
appear in a DATA declaration (Section V). 



Examples of character constants: 
'A' 
'12' 



= 41H 

= 20H 

= 3132H 

= 27H (one ') 



'THIS IS A LONG STRING' 
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Variables 

Variables are memory locations set aside by the programmer 
to hold data that changes during the execution of a program. 
Variables can be declared as either type BYTE (8 bit data) or 
type ADDRESS (16 bit data). BYTE variables should be used 
whenever possible to avoid the overhead associated with double 
precision arithmetic on the 6800. 

Variables are defined using the DECLARE statement (Section 
V), e.g. 

DECLARE CTR BYTE; 
DECLARE BUE$PTR ADDRESS; 

Vectors (one dimensional arrays) can also be declared, e.g. 
DECLARE LIST (10) BYTE ; 

which sets aside 10 bytes of storage. A vector has n 
elements, referenced as 

V(0), V(T), ..., V(n-1) 

The value in parentheses is the subscript, which can be any 
SPL/M expression (Section IV). The subscript is added to the 
base address for BYTE vectors to generate the correct memory 
reference. For ADDRESS variables, twice the subscript is added 
to the base to generate the correct memory reference. 

For example, if the BYTE vector LIST declared above was 
located at memory address 400, then LIST(4) would refer to memory 
address 404. However if LIST was an ADDRESS vector, then LIST(4) 
would refer to memory addresses 408 and 409- 

Subscripted variables can be used anywhere a variable is 
allowed in SPL/M, except as the operand of the dot operator 
(Section IV). 

The first element of a vector may also be referenced without 
the subscript; i.e. V and V(0) are the same. 



FORM DOC - 101 8-76 General Documentation 



© 1976 PROGRAMMA CONSULTANTS 



SYSTEM NAME 



SYSTEM NUMBER 



PAGE 5 OF 



CATALOGUE NUMBER 



PROGRAM NAME 



PROGRAM NUMBER 



DATE DOCUMENTED 



IV. EXPRESSIONS AND ASSIGNMENT STATEMENTS 



An expression is simply a way of computing a value. 

Expressions are formed by combining operators (such as + or *) 

with either operands (variables or constants) or other 
expressions enclosed in parentheses. 

An arithmetic expression consists of one or more operands 
which are combined using the following arithmetic operators: 



/ 

MOD 



addition 

subtraction (unary minus also allowed) 

unsigned multiplication 

unsigned integer division 

modulo (remainder from a division) 

dot operator (see below) 



Examples : 
X 



ALPHA - BETA 
10 MOD 3 
-1 

•X*(Y+Z)/2 
.BUE1 



( resul t =1 ) 



The unary dot operator (.) generates a numeric constant 
equal to the memory address of a variable. The variable cannot 
have a subscript. 

A relational expression consists of two arithmetic 
expressions combined with one of the following relational 
operators : 



< 
<= 

<> 

> 



less than 

less than or equal to 

equal to 

not equal to 

greater than or equal to 
greater than 



Comparisons are always performed assuming the operands are 
unsigned integers. If the specified relation holds, a value of 
OEFH (true) is returned; otherwise the result is (false). 
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Examples : 

A > 1 

CNTR <= LIMIT+OVER 

L00PO0 

A logical expression consists of either arithmetic or 
relational expressions combined with one or more of the following 

logical operators: 

OR bitwise OR 

XOR bitwise exclusive OR 

AND bitwise AND 

NOT 1 's complement (unaryoperator) 

Examples : 

LADIES AND GENTLEMEK 

NOT FLAGS (same as FLAGS XOR -1) 

X > 1 OR I < 2 

The following table summarizes the effect of each logical 
operator: 



X 


Y 



X OR I 


X XOR 


Y 


X 


AND Y 


NOT X 


















1 





1 


1 


1 









1 


1 





1 


1 












1 


1 


1 









1 






Logical expressions are used in assignment statements to 
perform bit manipulation, and in IE and DO--WHILE statements 
(section VI) to specify a series of conditional tests. 

Operator Precedence 

The order of evaluation of operators in an expression is 
primarily determined by operator precedence. 

Operands are associated with the adjacent operator of 
highest precedence. Operands adjacent to two operators of equal 
prlcIdLcI may be associated with either one. Operators with the 
highest precedence are evaluated first. Two operators of the 
same precedence may be evaluated in either order. 
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The following list 
SPL/M: 

highest: ( ) 

unary - 
* / MOD 


summarizes the operator precedence for 



lowest : 



+ — 

NOT 
AND 
OR XOR 



Since parentheses have the highest precedence, they can be 
used to override the implicit order of evaluation. The following 
fully parenthesized expression 

IF (A=3) OR (B > (10*(I+1))) THEN 

can also he written: 

IF A=3 OR B>10*(I+1) THEN 

The parentheses around the 1+1, to force the addition to be 
done first, are the only ones required in this case. 

Assignment Statements 

Assignment statements perform the real work of a program. 
They are used to assign the result of an expression to a variable 
location. The format is: 

variable = expression; 

The value of the variable on the left-hand side of the equal 
sign is replaced by the value of the expression on the right-hand 
side . 

Examples : 



CTR = CTR + 1 ; 
LIST(I) = 0; 
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Implicit Type Conversions 

Mixed mode is a situation which arises when BYTE and ADDRESS 
variables or constant are combined in the same expression or 
assignment statement. To avoid generating unexpected results, 
SPL/M attempts to use double-precision arithmetic throughout 
mixed mode expressions. 

As soon as an ADDRESS variable or constant is encountered 
(scanning from left to right), then the remainder of the 
statement or expression is evaluated in double-precision mode, 
for example, if X is an ADDRESS variable, then 

... X = -1 ; 

will set X = OPEEFH since the unary subtraction will be 
carried out in double precision. 

When operating in double-precision mode, the high-order 
eight bits of any BYTE variables or constants in an expression 
are assumed to be 0. In an assignment statement, if the variable 
on the left-hand side is type BYTE, whereas the expression on the 
right-hand side is type ADDRESS, then the high-order eight bits, 
of the expression will be lost. 

In a complex relational expression involving ADDRESS 
variables on one side and BYTE variables on the other, the 
ADDRESS variables should appear first to force the entire 
expression to be evaluated in double-precision. 

Note: the rules used by SPL/M for evaluating mixed-mode 
expressions are not the same as PL/M. 

Functions for performing explicit type conversions are also 
available in SPL/M; see Section VIII. 
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V. DECLARATIONS 



Variables, constant data arrays, and symbolic constants are 
defined using the DECLARE statement. (DCL is an allowed 
abbreviation for DECLARE) . All programmer-defined identifiers 
must be declared before they are referenced in the program. 
Declarations are subject to "scope", which is explained under 
program organization (Section IX). 

Variable Declarations 

The general form of the declare statement is: 

DECLARE identifier [( bounds )] type ; 

where "(bounds)" is optional and is used only for vector 
declarations (see below). The "type" may be either BYTE, 
denoting 8-bit data, or ADDRESS (abbreviated. ADDR), denoting 
16-bit data. 

Examples : 

DECLARE CTR BYTE; 
DCL BUE$PTR ADDRESS; 

Vectors (one-dimensional arrays) are defined by specifying 
the number of elements following the variable name; e.g. 

DCL LIST (10) BYTE; 

which sets aside 10 bytes of storage, and 

DCL A$LIST (10) ADDR; 

which allocates 20 bytes (two for each address element). Vectors 
are referenced using subscripts as explained in Section III. 

The number of elements in a vector declaration may be zero, 

in which case no storage is reserved. The variable will refer to 

the same memory location as the next data declaration, for 
example, . 

DCL BIG$CTR (0) ADDR, 
HIGH$CTR BYTE, 
L0WSCTR BYTE; 
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HIGHSCTR and L0W$CTR overlay the high and low bytes of 
BIG$CTR. This example also shows how several variables can be 
declared in the same statement. Each declaration is separated by 
a comma. 

Sometimes it is desirable to declare a variable at a 
particular memory location. This is done by preceding the 
DECLARE statement with an origin, which will cause" the next BYTE 
or ADDRESS variable to be allocated at the given address. 
Origins consist of a number followed by ':'. For example, 

■;'* i- 
-t 

3SH: DCL ACIA$N0 A DDR, N0$PRNT BYTE; 
3CH: DCL BUF$BEG ADDR; 
DCL BUF$END ADDR; 

v/ill cause the following allocations to take place: 



38H-39H 
3AH 

3CH-3DH 
3FH-3FH 



ACIANO 

WOPRNT 
BUFBEG 
BUFEND 



If a declaration is not preceded by an origin, variables are 
allocated storage immediately following the "last declaration. 
Unless overridden by an explicit origin, the first variable 
declaration starts at 10H. Declare origins have no effect on DCL 
DATA and DCL LIT statements (discussed below); however an origin 
on either will affect the next variable allocation. 

Constant Data Declarations 

It is often necessary to define constant data, such as 
character strings or a table. This is done via a DECLARE DATA 
statement, which has the general form: 

DECLARE identifier DATA (constant list) ; 

where "constant list" is a list of numeric or character 
constants, separated by commas. 

It is assumed that data declared in this way will not change 
during execution of the program. The data is located within the 
program object code. 
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The identifier defined in a DCL DATA statement is always of 
type "byte, and is referenced using subscripts the same as any 
vector. 

Examples : 

DECLARE REVERSE.$DIGITS DATA (9,8,7,6,5,4,3,2,1,0); 

DCL MSG DATA ( *A MESSAGE STRING ',4); 

Symbolic Constant Declaration 

The DECLARE LITERALLY statement provides a compile-time 
symbolic constant substitution mechanism similar to the "equate" 
facility in assemblers. The general form is: 

DECLARE identifier LITERALLY 'number'; 

LITERALLY may be abbreviated as LIT. Whenever the 
identifier is encountered in the program, it will be replaced by 
the number. 

Examples : 

DECLARE CASS1 LITERALLY '0E050H"; 
DCL TRUE LIT 'OEEH', FALSE LIT '0'; 



IF DECK <> CASS1 THEN 
DEFAULT = FALSE; 
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VI. FLOW OJ CONTROL & GROUPING 



Various SPL/M statement types are used to alter the path of 
program execution. SPL/M does not have the GOTO statement 
available in BASIC and FORTRAN. However the structured 
programming constructs (IE-THEN-ELSE, DO-END, and DO-WHILE) can 
be used to express any program more clearly than if GOTO's were 
used.. 



IE S tatement 

The IE statement selects alternate execution paths, based on 
a conditional test, IF statements have two forms: 

a) IF expression THEN statement-1 ; 

b) IF expression 

THEN statement-1 ; 
ELSE statement-2; 

Execution of an IF statement begins by evaluating the 
expression following the IF. If the right-most (least 
significant) bit of the result is a 1 , then statement-1 is 
executed. If the bit is a 0, no action is taken for the first 
form (a), and statement-2 is executed for the second form (b). 

Since the result of a relational expression is either OFFH 
(true) or (false), the construction "IF relational-expr THEN" 
has the expected result. 

In the second form of the IF statement above (b), 
statement-1 may not be an IF statement. This avoids any 
ambiguity in the following construction; 

IF expression 

THEN IF expression 

THEN statement-1 ; 
ELSE statement-2; 

The rule in this case is that the ELSE belongs to the second 

(innermost) IF statement. If needed, a DO- END group (defined 

below) can be used to associate the ELSE with the first IF 
statement: 
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IP expression 
THEN DO; 

IF expression THEN statement- 1 ; 
END; 
ELSE statement-2; 



The ELSE now clearly belongs to the first IE. 
are examples of IE statements: 



The following 



IE CELAG THEN CTR = CTH+1 ; 

IE A > AND B > 
THEN A=B; 

IE X>0 THEN 1=1 ; ELSE Y=2 ; 



JDO-END Groups 

The DO-END statement is used to group together a sequence of 
SPL/M statements, such that they are treated as a single 
executable statement in the flow of control. Eor example, 

IE SWITCH 
THEN DO; 

TEMP=A; 

A=B* 

B=TEMP; 
END; 

All three statements in the DO-END group will he executed if 
the variable SWITCH is true. Note that indentation is usually 
used with IE and DO statements to make the logic of the program 
stand' out. 

Simple DO-END groups are also used (less frequently) to 
create a block in which local variables are declared, as 
described in Section IX. 

DO-W HILE Statement 

The DO-WHILE statement causes a group of statements to be 
repeatedly executed as long as a condition is satisfied. The 
general form is: 
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DO WHILE expression; 
statement-1 ; 



statement-n; 
END; 

The statements within the DO-WHILE are executed as long as 
the result of the expression has its right-most bit equal to 1. 
The expression is evaluated at the "beginning of each execution 
cycle . 

This version of SPL/M does not have the PL/M iterative- type 
DO (like the FOR statement in BASIC). However the more general 
DO- WHILE can he used in an identical manner: 

1=0; 

DO WHILE I < 10; 

CHAR = I+'O'; 

CALL PUTCHR; /* DISPLAY 0-9 */ 

1=1+1; 
END; 

It is sometimes desirable to terminate the execution of a 
DO-WHILE abnormally (i.e. for some condition other than the 
expression following the DO). This is facilitated by the BREAK 
statement, which causes a transfer of control to the first 
statement following the END which terminates the innermost 
DO- WHILE. 

Example : 

1=0; FOUND = 0; 
DO WHILE NOT POUND; 

IP LIST (I) = KEY /* SEARCH LIST POR KEY */ 

THEN FOUND = 1 ; /* EXIT NEXT CYCLE */ 
ELSE DO; 
1=1+1; 
IF I >= 100 THEN BREAK; /* ABNORMAL EXIT */ . 

END; 
END; 

If the key is found in the list, the DO-WHILE will exit 
normally with F0UND=1 and I equal to the list index. Otherwise 
the BREAK will terminate abnormally with F0UND=0. 

Note: the BREAK statement is an SPL/M extension and is not 
in PL/M. 
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VII. PROCEDURES 



Well designed programs make frequent use of subroutines, 
each of which is related to a particular function. In SPL/M, 
subroutines are called procedures, and are defined as follows: 

label: PROCEDURE; 

statement-1 ; 



END; 



statement-n: 



The "label" is the procedure name, which is required later 
when the procedure is called. PROCEDURE may be abbreviated 
PROC 

In this version of SPL/M, all procedures must be defined at 
the beginning of the program (see Section IX) and nesting of 
procedure definitions is not allowed. 

Since a procedure is a block (also discussed in Section IX), 
all variables declared ' within it are "local" and cannot be 
referenced outside of the procedure. All storage declared in 
SPL/M is static. Automatic stacking of local variables is not 
done on entry to a procedure. 

All values passed to and from procedures must be done via 
global variables since procedures cannot have parameters in this 
version of SPL/M. 

CALL S tatement 

Procedures are invoked by the CALL statement: 

CALL procedure-name; 

where the procedure must have been previously defined as 
described above. 
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Example : 



DCL MAX$LINE LITERALLY '80'; 

DCL LINE (MAX$LINE) BYTE; /* GLOBAL */ 



CLEAR$LINE: PROCEDURE; 

DCL I BYTE; /* LOCAL */ 
1=0; 

DO WHILE I < MAX$LINE; 
LINE(I) = ' '; 
1=1+1; 
END; 
END; 



CALL CLEAR$LINE; 

It is "also possible to call a procedure by its address. 
This makes it easier to link to assembly language subroutines in 
an operating system. Por example, 

CALL 0EC37H; /* HOME CURSOR */ 
CALL 0FC3DH; /* CLEAR SCREEN */ 

Note: the construction "CALL number" is an SPL/M extension 
and is not in PL/M. 

The "declare literally" facility (Section V) can be used to 
define the address as a symbolic constant to keep the reference 
symbolic : 

DCL HOME LIT '0EC37H'; 



CALL HOME; 
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RETUR N Statement 

When a procedure is called, it starts execution at the 
"beginning of the procedure and normally does not return until the 
END matching the PROCEDURE statement is reached. However it is 
possible to force an earlier return by using the RETURN 
statement, e.g. 



IF ERROR THEN RETURN; 

Whether a RETURN statement is used or not, a 
returns to the statement following the original CALL. 



procedure 
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VIII. MISCELLANEOUS FACILITIES 



Direc t References to Memory 

It is sometimes desirable to refer to the memory address 
space of the 6800 directly. (In fact this is the only way I/O 
can be performed directly in SPL/M, since the language does not 
have explicit input/output statements. But I/O is usually done 
via calls on existing operating systems routines*) 

When required, direct reference to memory can be done using 
the MEM and MEMA vectors, which are predeclared to start at 
address 0. MEM is type byte, while MEMA is type address. The 
normal doubling of subscripts is not done for MEMA; for example 

MEMA(33H) = 0F050H; 

sets memory locations 38H and 39H to the hexadecimal value 
0E050H. 



PL/M, 



Note: MEM and MEMA are SPL/M extensions and are not in 



When used on the left-hand side of an assignment statement, 
MEM is like the POKE function in some BASIC'S. On the right-hand 
siide, MEM is like the PEEK function. 

The subscript can be any arithmetic expression, but usually 
is just an address variable. In the following byte move 
subroutine, global variables EUE1 and BUF2 contain the start 
addresses of two buffers, and BSIZE is the number of bytes to 
move : 

BYTE$M0VE: PROC; 

DO WHILE BSIZE <> 0; 

MEM(BUE2) = MEM(BUE1); 
BUE1 = BUF1 +1 ; BUE2 = BUF2+1 ; 
BSIZE = BSIZE-1 ; 
END; 
END; 
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Explicit Type Conversion 

Section V discussed implicit (automatic) type conversions in 
mixed mode expressions. SPL/M also provides two explicit type 
conversions in the form of built-in functions, which take address 
expressions as arguments. The functions may appear anywhere an 
expression is legal. 

LOW(expr) returns the least-significant "byte of its 
argument. 

HIGH(expr) returns the most-significant byte of its 
argument. 

GENERATE Statement 

It is occasionally necessary to link to operating system 
subroutines which pass values in registers. The GENERATE 
statement can be used to produce machine code "patches" to 
accomplish this. It generates code in-line wherever it appears 
in an SPL/M program. Because of the low-level nature of this 
statement, and the possibility of making errors, it should be 
used only where absolutely necessary. 

The GENERATE statement has the form: 

GENERATE (constant list); 

where "constant list" is a list of numeric, character, or 
symbolic constants, including address (dot) references. GENERATE 
may be abbreviated GEN. 

Note: the GENERATE statement is an SPL/M extension and is 
not in PL/M. 

The following example stores the contents of the accumulator 
at location 42H after calling a subroutine to input a character: 

CALL 0PC4AH; 
GEN(97H, 42H); 

However using only hexadecimal constants makes the code 
nearly impossible to read. This can be improved by using DCL 
LIT's and declaring a variable at address 42H: 
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42H: DCL CHAR BYTE; 
DCL GET$CHAR LIT '0FC4AH', 
STAA LIT '97H'; 



CALL GET$CHAR; 
GEN (STAA, .CHAR); 



Por additional examples, refer to the SPL/K licrary routines 
presented in Appendix B. 



FORM DOC -101 8-76 General Documentation 



1976 PROGRAMMA CONSULTANTS 



SYSTEM NAME! 



PROGRAM NAME 



SYSTEM NUMBER 



PROGRAM NUMBER 



PAGE 21 OF 



CATALOGUE NUMBER 



DATE DOCUMENTED 



IX. PROGRAM ORGANIZATION AND SCOPE 



In general, an SPL/M program consists of a set of global 
declarations, followed by any procedure declarations, followed by 
the "main" portion of the program. The last line of the program 
must contain the characters EOF (end of file) which generates an 
RTS Instruction to return to the caller of the main program. 

DECLARE statements may appear anywhere in SPL/M, but their 
location may have different effects due to the "scoping" rules 
discussed below. In all cases, 
variables, procedures, or symbolic constants, 
before they are referenced in the program. 



all names, whether they are 
must be defined 



Block Structure and Scope 

The largest syntactic unit in an SPL/M program is the 
outermost program block, which consists of ~ the global 
declarations, procedure definitions, and the "main" program. 

Global declarations will be known, or available, to all 
procedures and the main program. Each procedure may also contain 
its own declarations, which are local; i.e. known only within 
that procedure. 

Procedures and/ or the main program may also have DO-END 
groups (Section VI) containing additonal declarations, which are 
local to each group. 



Example : 



DCL A BYTE, B BYTE; /* GLOBAL*/ 



XYZ 



XYZ: PROC; 

DCL B ADDR, C ADDR; 

DO; """ 

DCL A BYTE; 

END; 
END; 



/* MAIN */ 
DCL C BYTE; 

EOE 



B 



C 



B 
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The brackets indicate the "scope" of each variable. 

Variables, once defined, can be redefined only within a 
nested block (procedure or DO-END group), which will result in 
additional static storage being allocated^ The new definition is 
known only within the nested block(s); when the end of the nested 
block is reached the original definition is in effect again. 

Variables, unless redefined, are known within the block in 
which they are declared and in all blocks nested within it. 

Program Origins 

Origins, which are simply a number followed by ':*, have 
already been discussed in the context of declare statements 
(Section V). 

A program origin is anj^ origin not preceding a DECLARE 
statement. Program origins affect the generation of the next byte 
of object code, including DC1 DATA constants (which are located 
within the program object module). 

In this version of SPL/M, program origins are restricted to 
the following locations: 

1) First statement of a program (defines starting 
address ) . 

2) Beginning of each procedure definition (the origin must 
be placed just ahead of the procedure name). 



) First statement of "main" (allowed only if the program 
contains procedure definitions). 



In all the cases above, origins are optional. In the 
absence of any origin the first byte object code will start at 
location 100H. If the main program or a procedure lacks an 
origin, the associated code will follow the code immediately 
preceding. 

If provided, the initial (start) origin must be immediately 
followed by a "null statement" (e.g. 0A100K:;) to distinguish it 
from a declare origin. 

When an origin is specified, the user is responsible for 
insuring that the resulting code does net overlap code that has 
already been generated. 
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The following example summarizes the SPL/M program 
organization/ Everything in brackets [] is optional; and any 
addresses are for example only. Note that declares can go 
anywhere; however for clarity it is best to restrict them to the 
beginning of the program, the beginning of each procedure, and 
the beginning of "main". 



/* OPT. START ADDRESS */ 

/* GLOBAL DECLARES */ 

/* OPT. PROCEDURE 
DEFINITIONS */ 



/* OPT. ORIGIN EOR MAIN */ 



[ 200H:; ] 
[[ 42H: ] DCL's] 
[ 300H: ] XYZ: PROC; 

END; 
[ 400H: ] 

/* main */ 



EOE 

A jump from the beginning of the program (e.g. 200H) to the 
beginning of the code for main (e.g. 400H) is automatically 
generated if there are procedure definitions and if there is 
either an explicit start address provided or there are any global 
DCL DATA'S. 

Refer also to Appendix C.for an example of a complete SPL/M 
program that contains many of the elements described above. 
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X. COMPILE AND CONFIGURATION OPTIONS 



(PLEX Version 1.2) 



Sys tern Cons idera ti cms 



This version of the compiler is designed to run on a 
6800-based system, such as the SWTPc, running under the PLEX 
Operating System. In particular, it assumes the existence of: 

PLEX 1.0- or 2.0 (not miniPLEX) 

20K of user RAM starting at location OOCO 

SWTBUG monitor ROM or equivalent 

Comriler Disk 

The disk supplied with the compiler contains the following 
files : 

SPLM.CMD - SPL/M compiler 

PLX102.TXT - Assembler source for compiler interfaces 
SPLM. LIB - SPL/M library (general DOS interfaces) 
SPLMREAD.LIB - SPL/M library (reading sequential files) 
SPLMWRIT.LIB - SPL/M library (writing sequential files) 
SIZE.TXT - SPL/M source for sample program (SIZE) 

The SIZE.TXT source file is intended to be used as a test of 
the compiler. It also brings in two of the library files using 
the ^INCLUDE facility discussed below. 

Running the Compiler 

The compiler has several compile-time options which control 
the generation of listings and binary files. 

The general syntax for the SPLM command is: 

SPLM [ , <source> [ , <binary> ] [ , +<opti on lis t> ] ] 

The '<>' enclose a field defined below and are not actually 
typed. The '[]' surround optional fields. 

All parameters are optional. If none are provided, then the 
comjiler runs interactively with the source input coming directly 
from the keyboard. This is useful for experimenting, to see what 
kind . of code the compiler generates for a particular input. In 
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this mode a full code listing is always outjut to 
A "binary object file is not produced. 



;he terminal . 



The normal mode however is for a <source> file name to be 
specified to be compiled. In this case the compiler reads the 
named file from disk until an EOF statement is encountered in the 
source. The defaults for the <source> file specification are a 
-TXT extension and the working drive number. 

If the optional <"binary> file name is also specified, it is 

used as the name of the object file written to disk. If <binary> 

is not included in the command, the binary file will have the 

same 'name' as the source file, but with a .BIN extension. 

The option list is prefixed with a plus sign ('+'), with 
each option represented Toy a single letter. The letters may be 
in any order. The following options are available: 



(No binary). Do not create a binary file on disk, even if a 
<binary> file name is specified. 

(Yes, delete). Delete an old binary file of the same name 
as the one about to be produced. If this option is not 
specified, the compiler will prompt if the binary file 
already exists. Respond with 'Y' to delete it. 

(Display errors only). The compiler normally produces a 
line-numbered source listing. If this option is selected 
only error lines (if any) will be displayed. 

(Display code). Output a full listing, including both the 
source and the interlisted object code. 

(Display globals symbols). Output a symbol table containing 
only globally-declared symbols (which includes all procedure 
entry points; . 

A (Display all symbols). Output a symbol table with both 
global and local symbols. Each symbol table block will be 
displayed as the block is exited. 

If a binary file is being produced, it v/ill have a transfer 
address only if an initial origin (e.g. 0A100H:;) is specified 
as described in Section IX. 

If the code option (C) is selected, the object code for each 
statement is output as it is generated. Since this is a one- pass 
compiler, occasionally lines like: 



B 
Y 

E 

C 
G 
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155C: 7E 00 00 

are output when the compiler knows that a forward jump is 
required (for example in an IP or DO- WHILE statement) but doesn't 
know the addresss yet. In such cases an additional entry is 
output further down in the listing, when the address is resolved. 
Parentheses are used to indicate that this entry is a "fixup" to 
a previous unresolved jump: 

(155C: 7E 15 90) 

A symbol table is output only if one of the options A or G 
is selected. The symbols are alphabetized on the first character 
only. Along with each symbol is listed the type (BYTE, ADDfi, 
PROC, or LIT), and its value. Appendix C was printed with the G 
option. 

When the compiler has finished executing, it will display 
the number of errors, followed by the highest memory address used 
by the symbol table. If the compiler returns to the monitor 
without displaying these last two items, a fatal error has 
occurred (see Section XI). 

Examples : 

SPLM - Interactive input from keyboard 

SPLM,SIZE - Source = SIZE. TXT, binary = SIZE. BIN 

SPLM, SIZE, +GY - Source = SIZE. TXT, binary = SIZE. BIN, 

display globals, delete old binary 
SPLM, SIZE, 0. SIZE. CMD,+E - Source = SIZE. TXT, binary = 0.SIZE.CMD, 

display errors only 

Include Piles 

The compiler has a built-in include processor, which allows 
source library files to be brought in during a compile. The 
syntax is: 

^INCLUDE <source> ' 

where the <source> file name defaults to a .TXT extension and the 
working drive. The ^INCLUDE must start in column 1. The include 
statement is replaced by the file it includes. When the end of 
the include file is reached, the compiler switches back to the 
original file. Included files should not be terminated by an EOP 
statement, and must not themselves contain ^INCLUDE statements 
(i.e.,,. includes can not be nested) .. 
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The source from an included file is normally output to the 
listing in place of the ^INCLUDE statement. However this can he 
inhibited by the #NOLIST statement: 

#NOLIST 

source text 

#LIST 

None of the source text between the #NOLIST and the //LIST 
will be listed, except for any lines in error. Both statements 
must start in column 1, and neither are output to the listing. 

The library files listed in Appendix B are intended to be 
included at the beginning of an SPL/M program, as needed. All 
the files have a //NOLIST statement at the beginning, and a #LIST 
statement at the end, so they won't be listed during every 
comrile. 



Printer Considerations 

To have the listing output to a printer, precede the SPLM 
command with a P (see the P command in the FLEX User's Manual). 
For example, 

P, SPLM, SIZE 

would cause the line-numbered source listing for SIZE. TXT (along 
with any error messages) to be output to the printer. 

Each page of the listing starts with a form-feed (OCH) 
character, which is followed by the top margin, title and finally 
the source /object listing. The title includes the source file 
name (without extension), date, and page number and is followed 
by two blank lines. This title is generated in FLX102.TXT and 
thus can be changed by the user if desired. 

The byte at location 3A2H specifies the top margin, i.e. 
the number of blank lines from the top of the page to the title. 
This number can be 0, which will cause the title to be printed on 
the top line. 

The byte at location 3A1H specifies the number of lines to 
be printed on each page before the formfeed is issued. This 
count includes the top margin (see above), plus three for the 
title. 
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To accomodate narrow-width printers, if the byte at location 
039DH = 1 the title and source /object listing is limited to 40 
columns (assuming the input source is kept less than 32 
characters wide). 

Note: printer spooling should not be peformed during a 
corn-rile, since the compiler reroutes SWI's hack to the ROM 
monitor to handle fatal errors (see Section XI). The £WI vector 
is restored when the compiler returns to the DOS. 

Memory Usage 

The main part of the compiler uses RAM from 0380H to 3F1TK. 
The symbol table starts at location 4000H and can go up to 47EFK. 
The highest address actually used by the symbol table is 
displayed at the end of each compile. 

The interface routines which link the compiler with the DOS 
are assembled to reside at 4800H-4FFFH, but they can be easily 
moved by changing one ORG statement in FLX102.TXT if more room is 
needed for the symbol table. 

The compiler also uses low memory up to location OEPH. The 
top of the stack is set to 1EFH on entry but is restored on 
exit. 
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When 
followed 



an 

by 



error 
a line 



XI- ERROR HANDLING 
(SSB/FLEX Version 1.2) 

is detected, the source line is printed 
containing one or more single-character flags 
indicating the error(s). The error codes are: 

D - Duplicate declaration of the same identifier 

- Origin error (see Section IX for rules) 

P - Procedure definition error (Section VII) 

S - Syntax error; statement has an illegal construction 

U - Undefined identifier 

The flags are positioned under the primitive or operator 
where the error was discovered. For example, in the printout 
below, 

0210 TBL(I) = CTR1 ++ CTR2 ; 

**** u s u 

TBL and CTR2 are undefined, and there is a syntax error because 
of the second '+'. When a syntax error is discovered, the 
remainder of the statement is ignored (up to the next ';'), 
except that undefined identifiers will continue to be flagged. 
Also, when undefined identifiers are encountered code is still 
generated (assuming an address of 0) to allow patching. 

The above errors are the only ones which should occur for 
most users. They are all non-fatal; that is the compile is 
allowed to proceed. 

In addition there are a number of fatal errors which result 
in the compiler aborting. They are implemented via software 
interrupts, and result in the ROM monitor (e.g.. SWTBUG) being 
entered. 

If the compiler quits and a register dump is displayed, then 
a fatal error has occurred. The next to the last field of the 
dump gives the address of the software interrupt, which should be 
listed on the next page: 
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0E73 - expression too complex (operator stack overflow) 

0E7F - expression too complex (operand stack overflow) 

0E89 - expression too complex (expr type stack overflow) 

15AB - program too complex (symbol table nesting >64) 

1B94 - input line too long (>80 characters) 

26A9 - program too complex (fixup jump for IF or DO- WHILE is 
longer than 512 bytes) 

2712 - bad source format (input doesn't end with ODH) 

29EF - program too complex (IP chain nest >60) 

29FA - identifier too long (>31 characters) 

2F83 - out of symbol table memory (as defined by location 
0386H) 

If any of the above errors occur , return to the DOS via the 
warm start address, correct the problem and recompile. 

If a fatal error occurs that is not listed above, an 
internal "impossible" compiler error has occurred. Please send 
the error code plus a- listing of the program causing the error to 
Programma Consultants, using the attached SEP (Suspected Error 
Report) form. 
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APPENDIX A 
SPL /M Compiler Interface Routine s 
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************ ***************************************** 



* 
* 

* 
* 
* 
* 
* 



SPL/M COMPILER - INTERFACE ROUTINES 
(C) COPYRIGHT 1S79 BY THOMAS W. CROSLEY 

FLEX 1.0/2.0 COMPILER VERSION 1.2 

THIS COLE CONTAINS THE DOS-SPECIFIC ROUTINES 
NECESSARY TO INTERFACE THE SPL/M COMPILER 
WITH A PARTICULAR OPERATING SYSTEM. 



* 

# 

* 

* 
* 
* 
* 



**************************** ************************* 



* 





* EQUATES FOR 

-X- 


FLEX DOS 




0000 


XFC 


EQU 





FUNCTION CODE 


0001 


XES 


EQU 


1 


ERROR STATUS 


0003 


XUN 


EQU 


> 


UNIT NUMBER 


0004 


XFN 


EQU 


4 


FILE NAME 


oooc 


XEX 


EQU 


12 


EXTENSION 


003B 


XSC 


EQU 


59 


SPACE COM? FLAG 


0002 


QS04W 


EQU 


2 


OPEN FOR, WRITE 


0001 


QS04R 


EQU 


1 


OPEN FOR READ 


0004 


QSCL 


EQU 


4 


CLOSE 


OOOC 


QDEL 


EQU 


12 


DELETE 


0C03 


EFE 


EQU 


•z 


FILE .EXISTS 


0008 


EEOF 


EQU 


8 


END OF FILE 


0001 


TXTEXT 


EQU 


1 


TEXT EXTENSION 


0000 


EC NEXT 


EQU 





BINARY EXTENSION 


0016 


TRNREC 


EQU 


$16 


TRANSFER RECORD 


0002 


BINREC 


EQU 


2 


BINARY RECORD 


oooa 


FHLEN 


EQU 


O 


FILE NAME LEN 


B406 


FMS 


EQU 


SB406 




B403 


FMSCLS 


EQU 


$B403 




AD2D 


GETHL 


EQU 


$AD2D 




AD3F 


RPTERR 


EQU 


$AD3F 




AD03 


WARMS 


EQU 


$AD03 




A080 


IB 


EQU 


SA080 


INPUT LINE BUFFE 


AC14 


LINPTR 


EQU 


$AC14 


IB POINTER 


AD1B 


IN BUFF 


EQU 


$AD1 E 




AC13 


CURCHR 


EQU 


$AC18 




AD15 


GETCHR 


EQU 


$AD15 




AD18 


PUTCHR 


EQU 


•15AD18 




AD12 


0UTCH2 


EQU 


SAD12 




AD27 


NXTCH 


EQU 


S5AD27 




AD33 


SETEXT 


EQU 


SAD33 




AD2A 


RSTRIO 


EQU 


SAD2A 




AD24 


PCRLF 


EQU 


$AD24 




AD39 


OUTDEC 


EQU 


SAD39 




ACOE 


MONTH 


EQU 


SACOE 




ACOF 


DAY 


EQU 


SACOF 




AC10 


YEAR 


EQU 


SAC10 
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E124 
A012 



0570 
0571 
0572 
0573 
3D80 
OOCO 
003C 
003E 



* EQUATES FOR SWTBUG 



COD 
0020 



w 



0380 




0380 7E 


2C 78 


0383 7E 


48 00 


0386 47 


FF 


0388 00 


00 


038A 7F 


AD 24 


038D 7E 


AD 18 


0390 7F 


49 7D 


0393 7E 


4A 65 



0396 00 00 



0398 00 00 



SFE1 


EQU 


3E124 


NON-VECTORED SV.T 


SWIJMP 


EQU 


$A012 




* EQUATES TO 


INTERFACE 


WITH REST OF COMPILER 


INPOPT 


EQU 


$570 


INPUT OPTION 


PRTOPT 


EQU 


$571 


PRINT OPTION 


OUTOPT 


EQU 


$572 


COTE GENERATION OPTION 


SYMOPT 


EQU 


$573 


SYMBOL TABLE OPTION 


SBFFND 


EQU 


$3D80 


END OF SOURCE EUF 


INTORG 


EQU 


$C0 


INITIAL ORIGIN FLAG 


EUFADR 


EQU 


$3C 


CURRENT BUF PTR 


BUFEND 


EQU 


$3E 


END OF EUFFER PTR 


CR 


EQU 


$D 




SPACE 
* 


EQU 


$20 





* VECTOR TABLE FOR COMPILER: 

ORG $380 

* COLD START ENTRY POINT 

JMP $2C78 
* 

* GETPARMS - JUMP TO USER SUB TO PARSE COMMAND LINE 

JMP GPARMS 

* HIGH MEMORY - HIGHEST MEM LOG USABLE EY SYMBOL TABLE 

FDB GPARMS- 1 

* LOADX - ADDRESS OF USER SUB TO TRANSFER BA TO X 

FDB IF 0, COMPILER WILL GENERATE 

* PCRLF - JUMP TO USER ROUTINE TO OUTPUT CRLF 

JMP PCRLF 

* PUTCHR - JUMP TO USER OUTPUT ROUTINE 

JMP PUTCHR 

* CASS/DISK READ - JUMP TO USER ROUTINE TO READ SOURCE 

JMP DREAD 
-* 

* CASS/DISK WRITE - JUMP TO USER ROUTINE TO WRITE OBJECT 

JMP DWRITE 
* 

* MULT - ADDRESS OF USER SUB TO MULTIPLY BA EY CONTENTS 

* OF BYTES 0,1 — RESULT IN BA 

FDB C IF 0, COMPILER WILL GENERATE 

* DIV - ADDRESS OF USER SUB TO DIVIDE BA BY CONTENTS OF 

* BYTES 0,1 — QUOTIENT IN BA, REMINDER IN 0,1 

FDB IF 0, COMPILER WILL GENERATE 
* 
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* LINEUP - ADDRESS OF LIME BUFFER USED EY INBUFP 
039/* AO 80 LINHJF PDB IB 

03yC 00 FCB NOT USED 

* NARROW - SET TO 1 IP PRINTER HAS 40 COLUMNS 
039D 00 NARROW PCB 

* 

* GETCHR - JUMP TO USER KEYBOARD CHARACTER, INPUT ROUTINE 

039E 7E AD 1 5 JMP CETCHR 
-* 

* PLEN - NUMBER OP LINES OUTPUT AFTER FORMFEED 

03A1 39 FCB 57 

* 

* TMAR - NUMBER OF BLANK LINES BETWEEN FORMFEED AND TITLE 
03A2 02 FCB 2 

03A3 00 FCB NOT USED 

* LINEIN - JMP TO USER KEYBOARD LINE INPUT ROUTINE 

03A4 7E AD 1B JMP INBUFF 
* 

* PTITLE - JMP TO USER SUB TO OUTPUT TITLE AT TOP 

* OF PAGE 

03A7 7E 4B 1F JMP PTITLE 
* 

* WRAPUP - JMP TO WRAPUP ROUTINE 

03AA 7E 48 44 JMP CLOSE 
* 



* NOTE — THE FOLLOWING CODE IS VECTORED' TO FROM LOCATIONS 

* 380-3AC, AND CAN BE REASSEMBLED ANYWHERE BY CHANGING THE 

* THE FOLLOWING ORIGIN: 

4800 ORG $4300 

* 

-*** NOTE: NEXT 2 INSTRUCTIONS FOR SWTBUG ONLY *** 

4800 CE E1 24 GPARMS LDX £'SFE1 RESTORE NORMAL SWI'S 

4803 FF AO 12 STX SWIJMP 
* 

4806 7F 05 70 CLR INPOPT CLEAR OPTION FLAGS 

4809 7F 05 71 CLR ;• PRTOPT 

480C 7F 05 72 CLR OUTOPT , 

480F 7F 05 73 CLR SYMOPT 

4812 7F 4B F3 CLR DELOPT 

* PARSE THE COMMAND LINE 
4815 B6 AC 18 LDA A CURCHR 
4818 81 OD CMP A #CR 

481 A 26 09 BNE GP10 

481 C BD AD 2A JSR RSTRIO INTERACTIVE KEYBOARD OPTION 

481 F BD 4B 9E JSR ITITLE OUTPUT TITLE 

4822 7E 48 F4 JMP GP70 



SPL/M COMPILER - FLEX LINKAGES 
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4825 36 02 
4827 B7 05 70 
482 A B7 05 71 
432D 7C 05 72 

4830 7F 4B FE 
4833 7E 4B EF 



4836 


7F 


4C 00 


4839 


CE 


4C 03 


483C 


BD 


AD 2D 


4S3F 


24 


09 


4841 


BD 


AD 3F 


-"844 


BD 


B4 03 


4847 


7E 


AD 03 


484A 


86 


01 


484C 


BD 


AD 33 


484P 


86 


01 


48 _ 1 


A7 


00 


48^3 


BD 


B4 06 


4876 


26 


E9 


48^0 


CE 


4C 03 


43": B 


FF 


4B F4 


48FE 


CE 


4D 43 


4861 


FF 


4B F6 


4864 


BD 


49 49 


4867 


CE 


4D 43 


436A 


6F 


OC 


486C 


6F 


OD 


486E 


6F OE 


4370 


BD 


AD 27 


4873 


81 


OD 


4875 


27 


7D 


4377 


81 


2B 


4879 


27 


16 


487B FE 


AC 14 


487E 


0° 




487F 


FF 


AC 14 


4882 


CE 


4D 43 


4885 


BD 


AD 2D 


4083 


25 


B7 


488A 


BD 


AD 27 


488D 


81 


2B 



* SET DEFAULTS FOR DISK INPUT 
GP10 LDA A i,2 

STA A INPOPT INPUT FROM DISK 

STA A PRTOPT SOURCE PRINTOUT 

INC OUTOPT PRODUCE BINARY 
* 

CLR INCLP INCLUDE NEST=0 

CLR REOF READ FOF=FALSE 

CLR PAGENO PAGE NUMBER=0 

* PARSE SOURCE FILE NAME 

LDX //RFCB 

JSR GETFIL 

BCC CP30 

ERROR JSR R.PTERR 

CLOSE JSR FMSCLS 

J MP WARMS 
* 

* OPEN SOURCE FILE 
GP30 LDA A //TXTEXT 

JSR SETEXT 

LDA A //QS04R 

STA A XFC,X 

JSR FMS 

BNE ERROR 
* 

* COPY SOURCE FILE NAME TO BINARY 



BRANCH IF OK 
CLOSE ALL FILES 

DEFAULT EXT IS .TXT 



LDX 


//RFCB 




STX 


XTMP 




LDX 


#V/FCB 




STX 


XTMP2 




JSR 


COPYFN 




LDX 


#\VFCB 




CLR 


XEX,X 


CLEAR EXTENS 


CLR 


XEX+1,X 




CLR 
JSR 


XEX+2,X 
NXTCH 


■ 


CMP A 


//CR 




BEQ 


GP70 


USE DEFAULTS 


CMP A 


4!'+ 




BEQ 


OPTLP 


GET OPTIONS 


LDX 


LINPTR 




DEX 






STX 


LINPTR 


RESET FOR GE 



* PARSE BINARY FILE NAME 
LDX #WFCB 
JSR GETFIL 
BCS ERROR 
JSR NXTCH 
CMP A #'+ 



SPL/M COMPILER 
488F 26 63 



- FLEX LINKAGES 

BNE CP70 
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USE DEFAULTS 



4891 
4894 
4896 
4893 
489A 
489C 
489E 
48A1 
48A3 
48A5 
48A3 
48AA 
48AC 
48AE 
48BO 
48B3 
48B5 
48B7 
48B9 
48BB 
48BD 
48BF 
48C1 
48C3 
48C6 
48C3 
48CA 
48CG 
48CE 



BE AD 27 
81 OD 
27 5C 
31 42 
26 05 
7F 05 72 
20 EO 
81 59 
26 05 
7C 4B E3 
20 E7 
81 45 
26 07 
86 01 
B7 05 71 
20 DC 
31 43 
26 04 
86 03 
20 F3 
81 41 
26 07 
86 02 
B7 05 73 
20 C9 
81 47 
26 04 
86 01 
20 E3 



48D0 CF 43 D9 
48D3 BD 4B 6C 
48D6 7F 43 44 
48D9 OD OA 
48DB 49 
48F3 OA 

48F4 7D 05 72 
48F7 26 01 
48F9 39 



48FA CE 
48FD 86 
48FF BD 
4902 36 
4904 A7 
4906 BD 
4909 26 
490B 86 
490D A7 



4D 43 

00 

AD 33 

02 

00 

B4 06 

05 

FF 

3B 



OPT 10 

0PT20 

0PT25 
0PT30 

0PT40 

0PT45 
0PT50 



^'CR 

GP70 

#*B 

0PT10 

OUTOPT 

OPTLP 



* GET OPTIONS (+BYECAG) 
OPTLP JSR NXTCH 

CMP A 

BEQ 

CMP A 

BNE 

CLR 

BRA 

CMP A 

BNE 

INC 

BRA 

CMP A 

BNE 

LDA A 

STA A 

BRA 

CMP A 

BNE 

LDA A 

BRA 

CMP A 

BNE 

LDA A 

STA A 

BRA 

CMP A 

BNE 

LDA A 

BRA 



u 'y 

0PT20 
DELOPT 
OPTLP 
# 'E 
0FI30 

#1 

PRTOPT 

OPTLP 

4 *C 

0PT40 

/• f 3 

0PT25 

il'k 

0PT50 

"2 

SYMOPT 

OPTLP 

I, <jr 

OPT 60 

in 

0PT45 



ALL DONE 

DON'T PRODUCE BINARY 



DELETE OLD BINARY 



PRINT ERRORS ONLY 



FULL PRINTOUT WITH CODE 



PRINT ALL SYMBOLS 



PRINT ONLY GLOBAL SYMBOLS 



* 
0PT60 

ILLOPT 



* 

GP70 



LDX 
JSR 
JMP 
FDB 
FCC 
FCB 

TST 
BNE 
RTS 



// ILLOPT ILLEGAL OPTION 

0UTST2 

CLOSE 

$ODOA 

'ILLEGAL OPTION SPECIFIED' 

4 



OUTOPT 
GP75 



* OPEN BINARY FILE 

GP75 LDX #WFCE 

LDA A #BINEXT 

JSR SETEXT 

LDA A #QS04W 

STA A XFC,X 

JSR FMS 

BNE GP80 

LDA A //$FF 

STA A XSC,X 



NO BINARY 



DEFAULT EXT IS .BIN 



NO SPACE COMPRESSION 
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49CE 39 RTS AIL DON"" WITH COKMARD LINE 

-1910 A 6 01 CP30 IDA A XE3,X GET ERIE):": 

4912 31 03 CMP A -TEE EXI2TS ALREADY? 

491^ 26 30 BNE ERRORO SORE CTREE ERROR 

4916 7D 4B F3 TST EELOPT 

4919 26 10 BNE GP90 DELETE OLD BINARY 

491 E CE 49 61 LDX ADELMSG 

491 E BE 4B SC JSR 0UTST2 

4921 BB AD 15 JSR CEICKE 

4924 31 59 CMP A ;;'Y 

4926 27 03 BEQ GP9C 

4923 7E 48 44 JMP CLOSE ABORT 

* DELETE OLD BINARY FILE 
492 E CE 4B 43 GP9C LDX n \JFC2 
492 E IT 4B E4 STX XTMP 
4931 CE 4E 33 LDX RlFCB 
4934 IT 4B F6 STX XTMP2 

4937 BD 49 49 JSR COPYEN USE INCL ECE AS TEMP 

493A CF 4E 83 LDX ftlFCB 

493D 86 OC LDA A ^QDEL DELETE DESTROYS ECB 

493E A7 00 STA A XFC,X 

4941 BD B4 06 JSR EMS 

'944 27 B4 BEQ CP75 NOV; GO OPEN IT 

4946 7E 48 41 ERRORO JMP ERROR 

* COPY FILENAME IN ECB(XTMP) TO (XTMP2) 
4949 C6 OC COPYFN LDA B "12 

<-'94E EE 4B F4 CPL? LDX XTMP 

4943 A6 03 LDA A XUM,X 

49 '0 08 INX 

49 1 IT 4B E4 STX XTMP 

49"" 4 FF 4B F6 LDX XTMP2 

49 7 A7 03 CPLP1 STA A XUN,X 

49 "9 03 INX 

49 "A FF 4B F6 STX XTMP2 

49'' ; D 5 A DEC B 

49 E 26 FB BNE CPL? 

4960 39 RTS 

4961 OD OA DELRSG FDB SODOA 

4963 44 FCC 'DELETE OLD BINARY (Y-N)? ' 

497C 04 FCB 4 
-* 

* RF.AD SOURCE FROM DISK 

497D 7D 4B FF DREAD TST 3 EOF 

4980 27 05 BEG IREAD1 

4982 CF 4C 03 LDX REFCB 

4985 20 63 ERA IER0R1 TRYING TO READ PAST EOI 
* 

4987 81 29 DR3AD1 ESR IBFD READ FIRST EYTE OF SOURCE LIE- 

498/E 7E 4B FF TST REOF ENE OF FILE? 

498C 26 13 BNE i'DONE YES 
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CEP A /■"? 

EFQ INCL CHECK FOR 3/IiECLUEF' 

DB^AD2 BSR FELINE READ RE: AL IFF OF LIFE 

LDA E ASBFBND/256 CJiECK ./OF DUFFER OVEEFLOV.- 

LDA A jjS BREED 

SUB A BUFEND+1 

SBC B EUFSND 

BEEF EH 

TST A 

BH BHI DREAD1 
RDOEE RTS READ ENOUGE FOR FOE 

RDLINE LDX BUFFED 

RL05 STA A 0,X ASSUMES OFF REED EITORF CAFE 

INX 

STX BUFFED 

CMP A ,/CE 

BEO EL10 

BSR REED 

BRA KL05 
RL10 RTS 

* READ EYTE FROE DISK 

RBFD STX XTEP 

RBFDO LDX ERFCB DEFAULT IS READ FCE 

TST INCLP 

49BE 27 03 EEC? RBFD1 

49BD CF 4E 83 LDX EIFCE SWITCH TO INCLUDE FCB 

49C0 BE B4 06 EBFB1 JSR BIS 

49C3 27 1F BEQ EOX 

49C5 A 6 01 LDA A XES,X 

49C7 31 OG CEP A r'EEOF EOF? 

49C9 26 1F BEE ERRQR1 

49CE 7E 4B FE TST INCLP YES, CHECK IF 12 INCLUDE FIEF 

4SC7 27 OF BEQ SEOF 

49D0 7F 4B FF CLE INCLP IFS, SVITCE BACK TO MAIN' 

49E3 06 04 LDA A ;"QSCL 

49D5 A7 00 STA A XFC,X 

49D7 BE B4 06 JSR FES CLOSE INCLUDE 1ILE 

49DA 26 OE BNE FRR0R1 

49EC 20 D7 ERA RBFDO 

49DE 36 01 SEOF LDA A £1 

49EO B7 4B FF STA A REOF 

49E3 4D ROX TST A 

A9EA 27 DA BEQ EBFD1 IGNORE NULL GEARS 

49E6 FF 4B F4 LDX XTEP 

49FA'7 f7 4E41 ERE0R1 JEEP ERROR 
* 

49ED 3D C3 INCL BSR EBRD 

49EF 21 49 CEP A -''"I CRTS EG;. -JUST 'rl' 

49F1 27 OE BEQ IRCLC5 

49F3 DE 3E LDX BUFFED 30EFTHING ELSE, RESTORE 

49F5 CC 23 LDA E "'-'' 



40,37 


31 


23 


4^90 


27 


5B 


4992 


Or*. 


OF 


4cc/ 


Co 


3D 


4996 


36 


80 


4993 


90 


3F 


4 99 A 


D2 


3E 


4.0CQ 


26 


01 


499E 


4D 




499F 


22 


E6 


49A1 


7C 




49A.2 


DF 


3E 


49A4 


A7 


00 


49A6 


03 




49A7 


DF 


"A" 


49A9 


31 


OD 


49AB 


27 


04 


49AD 


SB 


0^ 


49AF 


20 


m 

-O 


49E1 


39 




49B2 


-L J- 


4B F4 


49E5 


CF 


4C 03 


49B3 


7E 


4B FF 



3PL/M 


CCMPIl 




- FLEX LINKAGES 
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49F7 


E7 CO 






STA 


E 


, X 




49E9 


00 






INX 








49FA 


if 3? 






STX 




EUFEND 




49rc 


20 94 






BRA 




DREAD2 


RET WITH 2ND GEAR IN ACCA 


49FE 


70 4B 


! 1 ■ - . 

J 


INCL05 


TST 




TMPT.P 




4A01 


2c 40 






BNE 




INGE 


ERROR -- NESTED INCLUDE 


4A03 


3D AD 




INCL10 


BSR 




RBFD 




4A05 


01 OD 






CMP 


A 


rCR 




4AC7 


27 42 






BEQ 




INCE 


ERROR - NO FILENAME 


4A09 


81 20 






CMP 


A 


/'SPACE 


IGNORE TO NEXT SPACE 


4A0B 


26 F6 






BNE 




INCL10 




4A0D 


8D A3 






BSR 




RBFD 




4ACF 


81 OD 






CMP 


A 


IfCR 




4A11 


27 38 






BEQ 




INCE 




4A13 


FF 03 


n A 




LDX 




LINEUP 




4A16 


FF AC 


14 




STX 




LINPTK 




4A1 9 


A7 00 




INCL20 


STA 


A 


0,X 


COPY FILE SPEC INTC IUPUT 


4A1E 


06 






INX 








4A1C 


81 OD 






CMP 


A 


fCR 




4A1E 


27 04 






BEQ 




INCL30 




4A20 


3D 90 






BSR 




REFD 




4A22 


20 F5 






BRA 




IMCL20 




4A24 


CE 4E 


0-7 


INCL30 


LDX 




fIFCB 




4A27 


BE AD 


2D 




JSR 




GETFIL 


PARSE INCLUDE FILE NAME 


4A2A 


25 14 






BCS 




INCO 




4A2C 


86 01 






IDA 


A 


£TXTEXT 




4A2E" 


ED AD 


■7^ 




JSR 




SETEXT 


DEFAULT EXT IS .TXT 


4A31 


86 01 






IDA 


A 


/ ( QS04i :) 


OPEN INCLUDE FILE 


4A33 


A7 00 






STA 


A 


XFC,X 




4A35 


ED B4 


Q6 




JSR 




IMS 




4A33 


26 06 






BNE 




INCO 




4A3A 


7C 4B 


FE 




INC 




INCLP 




4A3T) 


7r 40 


97 




JMP 




DREAD1 




'A40 


CF 4A 


54 


INCO 


LDX 




/'INCMSG 




A43 


ED 4B 


6C 




JSR 




0UTST2 




'A46 


CF A'K 


0*7, 




LDX 




fr'IFCB 




■ A49 


20 9F 






BRA 




ERROR 1 




-'-A4B 


CF 4A 


54 


INCF 


LDX 




/'INCMSG 




■'. A4E 


ED 4B 


oC 




JSR 




0UTST2 




4A'v 1 


7E 48 


44 




JMP 




CLOSE 




4A:4 


OD OA 




INCMSG 


FDB 




SO DO A 




4A' 6 


23 






FCC 




'^INCLUDE 


ERROR ' 


4A64 


04 




x- 


FCB 




4 










* WRITE 


OBJECT 


BUFFER TO 


DISK 


4A65 


DF 3C 




DWEITE 


LDX 




EUFADE 


POINTS TO OBJ FJF 


4A67 


A 6 00 






LDA 


A 


0,X 


GET RECORD TYPE 


4A69 


26 04 






ENE 




v;03 




4A6E 


7F 4B 


FE 




CLR 




ISTRT 


STRT RFCORE INITIALIZATION 


4A6E 






W01 


RTS 








4A6F 


81 FF 




W03 


CMP 


A 


/oFF 




4A71 


26 15 






"Q!\TT? 




V/10 




4A73 


96 CO 






LDA 


A 


INTORG 




4A75 


27 17 






BEQ 




W01 





A. 9 



3PL/M COMPILER - FEE) 



LINK AC Ir 



4A77 
4A79 

4A7C 
4A7E 
4A82 
4A85 

4A83 
4A6A 
4A8C 
4A8D 
4A8F 
4A8F 
4A92 
4APA 
4A^6 
4A99 



4A9F 

4AAO 

4AA2 

4AA5 

4AA7 

4AA9 

4AAE 

4AAD 

4AA.F 

4AB1 

4AE2 

4AB4 

4AE6 

4AB8 

4AEA 

4AE.D 

4AEF 

4AC1 

4AC3 

4AC5 

4AC8 

4ACA 

4ACD 

4ACF 

4AD1 

4AD4 

4AD6 

4AD9 

4ADE 

4ADD 

4AE0 

4 A? 1 " 

4AE6 

4AE3 

A. AFT 

4AED 



36 16 
BF 4B 



D6 
96 
EC 
E2 
26 
51 
24 
7D 
9f- 



26 
F1 
27 
F7 
86 
8E 
BE 
A 6 
7E 
26 
E7 
3E 
A 6 
7D 
26 
B7 
3D 
96 
E7 
7C 

PC 



A 6 



.[;; 






4E EC 
EE 4E OD 
E6 4B ED 
7F 4B OD 



91 01 
26 E2 
08 
08 
08 



4B 

-z-n 

Jt. 

3F 
4B 
4B 
5B 
30 

57 
4B 
13 



04 
02 

4B 
02 
4C 

7P 

01 

A P 

03 
4B 

02 

4B 
03 
4B 
32 
01 
4B 
4B 
4B 
25 
4E 



i. o 



1' Cj 



FB 



31 02 
26 OF 
86 00 
C1 7E 
2C: 09 
5F 
F1 01 



■B 



FC 



FE- 
ED 



FA 
FA 



W10 



W15 



WEEK 



W20 



'30 



LDA A 

TOP 
V t.jl\. 



EDA 
JSP. 
LDA 
JMP 

CMP 
BNE 
I NX 
INX 
INX 
STX 
LDA 
LDA 
SUB 
SBC 
ENE 
CMP 
BBS 
TST 
BNE 
CMP 
BNE 
LDA 
CMP 
BNE 
CLR 
CMP 
BNE 
CMP 
EEO 
STA 
LDA 
BSR 
LDX 
LDA 
TST 
BNE 
STA 
BSR 
LDA 
TST 
BNE 
STA 
ESR 
LDA 
STA 
INC 
LDA 
ESR 
LDX 
LDA 
BSR 



A 



A 



B 



.L'.rnrj:,rorrp 
,, jl imi,.. Xj 

wetd 

»w- .L 111 

V'PTP 



•12-79 TSC ASSFEE] 
GOTO E1DCK 



PACE 



..10 



oi 



'RT+1 



v;btd 



.01 



CODE 

EUFEND 

EUFEND+1 

CODE+1 

CODE 

WSEC 

4 $80 

WSEC 

ISTRT 

WBLK 

WBLK 
r- v 

/,'■!' /^ 

WBLK 
1 v 

WBLK 

<c , X 

'■•'ETS 

COUNT 

■"BIWRFC 

WETD 

EUFADR 

1,X 

ISTRT 

W20 

STRT 

WBTD 

O v 
C , A 

ISTRT 

W30 

STRT+1 

WBTD 

r1 

O-LElj. 

COUNT 
COUNT 

vcnrrs 

CODE 
X 






REGULAR OBJ RECORD (MAX 512 BYTES) 



SAVE PTR TC EEC OF CODE 



BA EAS LENCIE - 1 

IF >12S BYTES, SPLIT UF 



DUEMY JUNE ONLY? 

DON'T OUTPUT JUST 7E CCOO 



BINARY BLOCK 



REMEMBER INITIAL STRT ADDE 
WRITE STRT ADDR 



NORMALIZE IFF CI E 
WRITE L3.NGTF 
WRITE GUT G0D v 



SPL/r: ccKPir 



FLEX LIKXACFS 
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4AEF 
4AF0 
4AF3 
4AF5 
4AF3 

4AF9 

4AFB 

4 AID 

4 AIT 

4B01 

4BC3 

4BC5 

4BC7 

4B09 

4B0E 



4B0D 
4B10 
4B13 
4B1 5 
4B13 
4B1 B 
4B1C 



4B1F 
4B22 
4B24 
4B26 
4B23 
4B2A 
4B2D 
4B2E 
4B2F 

4B31 
4B34 
4B37 
4B3A 
4B3C 
4B3F 
4B42 
^■B44 
4B47 
4B4A 
4B4D 
4B 

4B r 3 
4B 6 

4B5° 

4B" r C 



'- C 

T-iT"' 
I'l" 

" c 



86 
3D 
D v 
E6 
A6 
8B 
C9 
F7 
A7 
2C 



FF 
CF 
ED 
26 
FE 
v_ 
7F 



4B F- 



7F 
ED 

3C 
01 
02 
SO 
00 
01 
02 
85 



4B 
4D 
B4 

04 
4B 



OF 
C6 
A 6 
26 
86 
BB 
08 
5 A 
26 

CF 
BB 
B6 
27 
CF 
BD 
20 
CF 
BB 
BE 

EB 
7C 
B6 
BB 
7F 



F4 
43 
06 

VA 



43 41 



4C 03 

08 
04 
02 
20 
AD 13 



4B BB 
4B 5F 
03 3D 
08 

4B CO 
4E 5F 
06 

4B C5 
4B 5F 
4B 32 
p FA 



4i2 

4B 
4C 

4C 



5F 
00 
00 



W tl_L K^ 

-je- 
WS EC 



I NX 
DEC 
BNE 
SIX 
RTS 



COUNT 
ELOOF 
CODE 



EBLK 
EUFAD1 



LDA A 
ESR 
LDX 

LDA B 1,X 

LDA A 2,X 

ADD A r'330 

ADC B "0 

STA B 1,X 

STA A 2 5 X 
v/15 



SAVE FT;: TC iFu BYTE 
WRITE A SECTIOE (123 BYTES) 



AH) 128 TO STAB 



ADDR 



-x- 

* WRIT 

WBTD 



BYTE TO DISK 

STX XTMP 

LDX /'WFCB 

JSR FMS 

BNE FRR0R2 

LDX XTMP 

RTS 

ERR0R2 JMP ERROR 
* 

* OUTPUT TITLE AT TOP OF PACE 

PTITLE LDX #RFCB 

LDA B /'FNLEN 

PTTL05 LDA A XFN,X 

BNE PTTL10 



LENGTH OF FILE NAME 
GET CHAR OF FN 



LDA A 
PTTI10 JSR 
INX 
DEC B 
BNE 



LDX 
JSR 



y'-SPAC^ 
PUTCNR 



PTTLC5 

fTITLEO 
OUTSTR 



PAD 



LDA A NARROW 
BEQ PTTL12 



4B 73 
AD 24 



LDX 
JSR 
BRA 

PTTI.12 LDX 
JSR 

PTTL1 5 JSR 
LDX 
JSR 
INC 
LDA A 
JSR 
JMP 



#TITLF2 

OUTSTR 

PTTL1 5 

rTITIF3 

OUTSTR 

DATE 

?/-PAGE 

OUTSTR 

PAGENO 

Jr" AG ji-i'i J 

ONEDEC 

PCRLF 



40 CHAR PRINTOUT? 
NO 



OUTPUT COMPILER VERSION 
OUTPUT DATE 

OUTPUT PACE NUkBER 



SPL/v COMPILER - FLFX LINKAGES 
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) A p 1~ 



A. 12 



4BEF A6 CO 
4B61 -31 04 
4B6; 27 06 
436'5 BE AD 1 
4B63 06 
4B6° 20 F4 
4B6B 39 



* S/E'E AS PSTENC EXCEPT NO INITIAL CNLF 
OUTSTR IDA A C,X 
CMP A A 4 



OSRTS 



JSR 
IUX 
BRA 
RTS 



PUTCHR 
OUTSTR 







* SAME 


AS OUTSTR EXCEPT USES 0UTCH2 


4B6C A 6 


00 


0UTST2 


LDA 


A 


0,X 


4B6F P1 


04 




CMP 


A 


34 


4B70 27 


F9 




BEQ 




OSRTS 


4B72 BD 


AD 12 




JSR 




0UTCH2 


4B75 03 






INX 






4B76 20 


F4 


* 


BRA 




0UTST2 






* OUTPUT ONI 


; : BYTE IN DECIMAL 


4B73 B7 


4C 02 


ONEDEC 


STA 


A 


DGT+1 


4370 r? 


4C 01 




LDX 




i'DGT 


4B7E 5F 






CLE 


B 


NO LEADING 


4B7F 7F 


AD 39 


-* 


JMP 




OUTDEC 






* OUTPUT DATE 




4B82 B6 


AC OE 


DATE 


LDA 


A 


MONTH 


4B65 BE 


4B 73 




JSR 




ONEDEC 


4B88 36 


2D 




LDA 


A 


i> * 


4B8A BE 


AE 13 




JSR 




PUTCHR 


4B8E B6 


AC OF 




LDA 


A 


EAY 


4B90 BE 


4B 73 




JSR 




ONFDFC 


4B93 36 


2D 




LDA 


A 


." '_ 


4B95 BE 


AD 13 




JSR 




PUTCHR 


4B93 E6 


AC 10 




LDA 


A 


YEAR 


4B9E 7 r ' 


4B 78 


■#■ 


JMP 




ONEDEC 






-J. -L J. ^kj.iJj 


FOR 


IK 


'TERACTIVE USE 


4B9E BE 


AD 24 


I TITLE 


JSR 




PC RLE 


4BA1 E6 


03 °D 




LDA 


A 


NARROW 


4BA4 26 


OC 




ENE 




ITTL10 


4BA6 CE 


4B BB 




LDX 




^TITLEO 


4EA.9 BE 


4B 5F 




JSR 




OUTSTR 


4BAC CE 


4B BC 




LDX 




/''TITLE 1 


4BAF BE 


4B 5F 




JSR 




OUTSTR 


4BB2 CE 


4B C5 


ITTI10 


LDX 




y ''TITLE3 


4BB5 BE 


4B 5F 




JSR 




OUTSTR 


4 BEE 7E 


AD 24 


-*■ 


JMP 




PC RLE 


4BBB 20 




TITIEO 


FCC 




* & 


4 BBC 20 




TITLE 1 


FCC 




* r 


4BC0 20 




TITLE2 


FCC 




* * 


4BC4 0* 






FCB 




4 


4BC9 53 




TITLE3 


FCC 




'SPL/M COMPILER VERSI 


4BF9 04 






FCB 




A 


4BEA 20 




PAGE 


FCC 




PAGE ' 



3PL/M CXNEPIIEE - FLEX LINKAGES 6-12-79 TSC ACS FEELER PAGE A. 13 



43FG. 


04 




-X- 


FCB 


A 




GO 




DELOPT 


FCB 


Q 


43F4 


GO 


cc 


kthF ~ 


FDB 


{.; 


4BF5 


GO 


cc 




FDB 


r 


4BF-3 


GC 


CO 


CODE 


FDB 


Q 


4BFA 


00 




COUNT 


FCB 





4BFB 


cc 




ISTET 


FCB 


p 

u 


4BFC 


cc 


cc 




FDB 


C 


4BFE 


cc 




INCL? 


FCB 





4BFF 


cc 




REOF 


FCB 


c 


4C00 


cc 




PAGENO 


FCB 





4C01 


CO 


CO 


DGT 

■X- 


FDB 





4C03 






RFCB 


RMB 


320 


4D43 






EFCB 


RMB 


12.0 


A TP'P'Z. 






IFCE 


RMB 


320 


4FC3 






PC-END 


END 


* 



NO ERROR (S) DETECTED 



^PT 



L/E COEPIL^E - FL! 



LINKAGJ 



T'O 



6-1 2-7 c 



TEC ASS FEELER PACE 



A. 14 



SET ECL 



.f L i;j 



BE 


4 nap 


BINEXT 


0000 


BINE EC 




BUFADR 


005 C 


BUFEND 


003E 


CLOSE 


4-344 


C0.DE 


4BF3 


COPYFN 


A 04c 


COUNT 


4BFA 


C7JJ 1) 


434B 


CPLP1 


4957 


CR 


GOOD 


CUECHR 


AC1 3 


DATE 


4B32 


DAY 


ACOF 


DELESO 


4961 


BEIOPT 


4BF3 


DGT 


4C01 


DREAD 


4- /£• 


DEEAD1 


4937 


DPTAD2 


/1QG2 


DV'RIT r 


4A65 


EEOF 


0000 


T7"E"-"n 
.Lj-l i_. 


0003 




4341 


EEEORO 


4946 




49EA 


ERR0R2 


4B1C 


J. 1 \%*j 


B4C6 


H'f.'cr'T 


B403 


FNLEN 


000(3 


ptr , ~'pr.TTr 


AD 15 


GETTIL 


AD2D 


GP1 


4325 




434A 


CP70 


4 3F4 


GP75 1 "' 


43FA 


GPcC 


4910 


GP90 


4°2B 


gpaees 


4300 


IB 


A 030 


IFCB 


4EG3 


ILLOPT 




IEBUFF 


AD1B 


IRCE 


4A4B 


INCL 


49ED 


INCL05 


4Qp^ 


INCL10 


4A03 


IECL2C 


4A1 3 


INCL30 


4A24 


INCL? 


ARpR 


INCMSC 


4A54 


I ECO 


4 A 40 


IKPOPT 


0570 


INTCRG 


COCO 




4KF3 


ITITLE 


4E C E 


ITTI-1C 


4BE2 


LINEUP 


039A 


EIEETR 


AC 14 


EO TE- 


ACOE 


NARROW 


039D 




AB27 


■Jx; UIlL 


4B73 


OPT 10 


43 A 1 


OPT20 


4 3AA 


OPT25 


43E0 


OPT 30 


43B5 


0PT40 


43BD 


0PT45 


45C3 


Ui. iiv''-' 




OPT 60 


48E0 


OPTLP 


4391 


OSRIO 


4E6E 


0UTCH2 


AD12 


OUTLEC 


ATY^O 
* ^ ^ .-/ 


OUTOPT 


0572 


0UTST2 


4E6C 


OUTSTR 




PAGE 


4EEA 


PAGENO 


4C00 


PCELF 


AD24 


PGEND 


4FC3 


PRTOPT 


0571 


PTITLE 


4E1F 


PTTLC5 


4E24 


PTTL1C 


4B2A 


FTTH 2 


4B44 


PTTL1 5 


4B4A 


PUTCHR 


AD13 


QDEL 


OOOC 


QSCL 


0004 


QS04R 


0001 


QS04IV 


0009 


RBFD 


43B2 


RBFDO 


/10R5 


RBFD1 


49C0 


d r>T t ?t i? 


49A2 


REONE 


49A1 


REOF 


4 BIT 


RFCE 


4C03 


tiT ri<r 


49A4 


RL10 


49B1 


RCK 


43E3 


:u J lr rat 


AD3F 


RSTRIO 


AB2A 


SBFENB 


3D60 


SEOF 


4 ODE 


SETEXT 


AE33 


SFE1 


E124 


SPACE 


0020 


STRT 


4BFC 


SWIJMP 


A012 


SY^'OP^ 


0573 


TITLEO 


4 EBB 


ITLF1 


4 BBC 


TITLE2 


4BC0 


TITLE3 


4BC5 


TRNRFC 


001 6 


TXTEXT 


0001 


V/01 


4A6E 




4A6F 


910 


4A88 


W15 


4A92 


920 


4ACD 


V/30 


4AD9 




AD03 


WBLE 


4 ABA 


WBID 


4 BOB 


WFCE 


4D43 


'./LOO? 


4AEB 


t'. ! I~i -L O 


4AF3 


WSEC 


4AF9 


XJ ? S 


0001 


XEX 


OOOC 


XFC 


*_■ v.. '..,'V-y 


XFN 


0004 


xsc 


003 B 


XTEP 


4BF4 


XTMP2 


4BF6 


XUN 


0003 


YEAR 


AC 10 
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SYSTEM NAME 



SYSTEM NUMBER 



CATALOGUE NUMBER 



PROGRAM NAME 



PROGRAM NUMBER 
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SPL/M DOS Library Routines 
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SPLM.LIE 6-12-79 PAGE 

#N0LIST 

/* SPIN LIRE ANY 'SPLM.LIE' — 
DOS INTERFACE ROUTINES 

FLEX VERSION 1.0 6-9-79 */ 

/* THESE ROUTINES CAN EE USED EY AN 
SPLM PROGRAM TO INTERFACE WITH 
THE DOS. PARAMETERS NORMALLY 
PASSED IN REGISTERS ARE PLACED 
IN GLOBAL VARIABLES INSTEAD. 

SEE THE FLEX 2.0 "ADVANCED PRO- 
GRAMMERS GUIDE" POR A DETAILED 
DESCRIPTION OP EACH OP THE 
ROUTINES. 

THE VERSION NUMBER OP THE PEOGRAN 
MUST BE DECLARED AS A SYMBOLIC 
CONSTANT BEFORE INCLUDING THIS 
PILE. THE STARTING ADDRESS AND ANY 
GLOBAL VARIABLES NOT ON PAGE (SUCH 
AS ARRAYS) SHOULD ALSO BE DECLARED 
BEFORE THE LIBRARY INCLUDES, E.G. 

0A1C0H:; 

DCL VERSION LIT '1'; 

0A840H: DCL RPCB (320) EYTE; 
•INCLUDE SPIN. LIB 
'/INCLUDE SPIKREAD.LIB 

VARIABLES DECLARED AFTER THE INCLUDES 
WILT, BE PLACED ON PAGE UNLESS 
PRECEDED BY AN ORIGIN. */ 

/* GENERATE VERSION NUMBER */ 
GEN( /*BEA 1 */20C1 H » VERSION ) ; 

/* OVERLAY FOR PART OP DOS MEMORY MAP */ 

"A080H: DCL LINEUF (128) BYTE; 

0AC02H: DCL EOLCHR BYTE; 

OACOSH: DCL SMOKTK BYTE, SDAY BYTE, SYEAR BYTE; 

0AC11H: DCL IASTTFRM BITE; 

0AC14H: DCL LINPTR A DDR; 

0AC1EH: DCL CURCHR EYTE, PREVCHR BYTE; 

DCL TRUE LIT 'OFFH'; 
DCL FALSE LIT '0'; 
DCL CRIP LIT 'CLOAK'; 

/* SYMBOLIC CONSTANTS FOR DISK 10 */ 
DCL XFC LIT '0'; /* FCB OVERLAY */ 
DCL XES LIT *1 ' ; 



splh.li; 



"19 'T, 
— I ^— / V 



PAGE B.3 



DCL XUH LIT '3'; 

DCL XFN LIT '4'; 

DCL XEX LIT '12'; 

DCL XF3 LIT '15'; 

DCL XNC LIT '5P'* 

DCL QSRvf LIT '6'; /* FUNCTION DEFS */ 

DCL 0SO4P LIT '1': 

DCL QS04W LIT '2' 

DCL QSC4U LIT '3' 

DCL QSCLS LIT '4' 

DCL QSREIV LIT '5' 

DCL EEOF LIT '3'; 

DCL DXBIN LIT 'C 

DCL DXTXT LIT '1 ' 

DCL DXCED LIT '2' 

DCL DXSYS LIT '4' 

DCL DXBAX LIT '5' 

DCL DXOUT LIT '11 



/* ERROR STATUS */ 
/* DEFAULT EXTENSIONS */ 



WARMS :PROC; 

GEN ( /* JK?*/7EH , 0AD03H ) ; 



1 0H: DCL CHAR BYTE; 

/* READ ONE BYTE INTO CHAR */ 

CETCHE:PEOC; 

CALL. /*GETCFR*/0AD15H; 

CEN(/*STAA*/097H, .CHAR) ; 
END; 

/* WHITE ONE BYTE FEON CKAR */ 
?UTCHR:PHOC; 

OEN(/*LDAA*/096H, .CHAR) ; 

CALL /*?UTCFR*/CAD1 8F ; 
END • 

/* OUTPUT A SPACE */ 
SPAC^rPEOC; 

GEN(/*LDAA*/036H,' '); 

CALL /*PUTCHR*/0AD18H; 
END; 

DCL INBUFF LIT '0AD1EH'; 

DCL NSGA ADDR; 

/* OUTPUT STRING WHOSE ADDRESS 

IS IN KSGA */ 
PSTRNG:?ROC: 

GEW(/*LTX*/ODEK, .MSCA) ; 

CALL /*P3TENG*/CAD1FH; 
END; 

DCL "RFCR B V TE * 
/*"cLKs?IFY"CHAR; ERROR = TRUE 

IF NCI ALPHANUMERIC */ 
CLASS :PROC; 

ERROR = OFFH; 



SPLM-LIP 



6-1 2-7 r 



PAGE E.4 



CEN(/*LIAA*/96K, .CHAR) ; 

CALL /*CLASS*/0AD21H; 

3EN(/*BCC*/24H,1); RETURN; 

ERROR =0; 
END; 

DCL PCRLF LIT '0AD24H'; 
/* GET NEXT DUFFER CHARACTER 

INTO CHAR */ 
NXTCH:PROC; 

CALL /*I\ T XTCH*/0AD27E; 

GEN ( /*ST AA* /97H , . CHAR ) ; 
END; 
DCL RSTRIO LIT '0AD2AH'; 

DCL FCBA ADDR; 

/* GET FILE SPEC INTO FCE WHOSE 
ADDRESS IS IN FCEA. NORMALLY 
ONLY CALLED BY LIBRARY ROUTINES 
RDOPFN AND WTOPEN */ 
GSTFTL:PROC; 

ERROR = OFFH; 
GEN(/*LDX*/ODEH, .FCBA) ; 
CALL /*CETFIL*/0AD2DK; 
G EN ( /*BCC*/24H , 1 ) ; RETURN ; 



CRROH 



u: 



END; 

DCL LOAD LIT '0AD30H'; 

DCL DEFFXT BYTE; 

/* S^T DEFAULT EXTENSION 

CONTAINED IN DEFEXT */ 
SH'T'EXI : PROC • 

* X GEN(/*IDAA*/96H, .DEFEXT) ; 
GEN(/*LDX*/CDEH, .FCBA) ; 

CALL /*S T: TEXT*/OAD33H; 

END; 

DCL DGTA ADEN, LDSPC BYTE; 
/* OUTPUT DECIMAL NUMBER WHOSE 
ADDRFSS IS IN DGTA. LEADING 
SPACES Will, BE PRINTED IP 
LDSPC = TRUE */ 
OUTDEC:PROC: 

GEN(/*LDAB*/0D6H, .LDSPC) ; 
GETJ(/*LrX*/ODEH, .DGTA) ; 
CALL /*CUTDFC*/CAD3 C H; 
FiJD; 

/* OUTPUT HEX BYTE WHOSE 
ADDRFSS IS IN DGTA */ 
OUTKFX:?ROC; 

GEN (/*Lr-X-*/CDEK, .DGTA) ; 
CALL /*GUTHEX*/CAD3CH; 



vx 



IND; 



/* REPORT DCS ERRORS. NORMALLY 



SPIN. LIP 6-12-79 PAGE B.5 

ONLY CALLED I30V DISK I/O 
LIBRARY ROUTINES */ 
RPTFHR:PEOC: 

GEN ( /*LTX*/ODEH , . FCBA ) ; 
CALL /*RPTEHR*/OAD3FH; 
END; 

DCL NUE A DDR, AUYDGTS BYTE; 
/* GET HEX NUMBER INTO RUM. 
ERROR SET TREE IF NOT HEX. 
DOTS SET <> IP ANY DIGITS 
POUND. */ 
GETHEX:PEOC; 

NUM=0; r PEOE=OFFH; ANYBOTS=0; 
GAIL /*C- 7 TMFX*/CAD42H; 
0EN(/*BCC*/24H,1 ) ; RETURN; 

GEN(/*STX*/CDFH, .NUM) ; 
GEN ( /*STA B»/OD7H , . ANYDGTS ) ; 
END; 
/* OUTPUT 2 HEX BYTES WHOSE 

ADDRESS IS IN DGTA */ 
OUTADRrPROC; 

GEN (/*LDX*/ODEK, .DGTA) ; 
CALL /*OUTADl?*/OAD45H ; 
END; 

/* INPUT DECIMAL NUMBER INTO NUM. 
ERROR SET IF INVALID NUMBER. 
DGTS SET <> C IP ANY DIGITS 
FOUND. */ 
INDEC:?ROC; 

iJUM=0; ERROR=OFFH; ANYDGTS=0; 

CALL /*I MDEC*/OAD4SH ; 

GEN ( /* ECC*/24K , 1 ) ; RETURN ; 

ERROR=0 ; 

GEN(/*STX*/CDPH,.NUM); 

GEIT(/*STAB*/0D7K, .ANYDGTS) ; 
END; 

DOCKND:PROC; 

CALL /*D0CMND*/0AD4FH; 

GEN( /*STAE*/0D7H , . ERROR ) ; 
END; 
FMS:PROC; 

/* SET ERROR = CFFH WITHOUT 
DESTROYING CHAR IN ACCA */ 

ERROR = 0; ERROR = FRRO.R-1 ; 

GEN(/*L.rX*/CDEH, .FCEA) ; 

CALL- /*JMS*/0B4C6H; 

GEN( /* BFQ*/27H, 1 ) ; RETURN ; 

ERRCR =0; /* ACCA STILL HAS CHAR */ 
END; ' 

DCL FMSCLS LIT '0B403H'; 
^LIST 
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.ftlOLIST 



7* spin library 'splmread.lib' — 
read routines 

flex version 1.0 6-9-79 */ 

/* these routines can ie used by an 

SPLM PROGRAM TO READ A SEQUENTIAL 
PILE. A FILE CONTROL BLOCK NAMED 
'RFCB' MUST BE DECLARED BEFORE 
THE LIBRARY INCLUDE, E.G.: 

0A840H: DCL RFCB (320) BYTE; 

''INCLUDE SPLM. LIB 

''INCLUDE SPLMREAD.LIB */ 



/* RDCLOSE - CLOSE A FILE PREVIOUSLY 
OPENED FOR READING */ 

RDCLOSE :PROC: 

RFCB(XFC) = OSCLS; 
FCBA = .RFCB; 
CALL FES; 
IF ERROR THEN 1)0^ 

CAIL RPTERR; 
CALL WARMS; 
FUD; 
END; 

/* RDER - HANDLE FATAL READ ERRORS */ 

RDER:PROC; 

FCBA = .RFCB; 

CALL RPTERR; 

CALL RDCLOSE; 

CALL WARMS; 
END; 

/* RDOPFN - OPEN A FILE FOR READING. 
ON ENTRY, ( GLOBAL, ) DEFECT MUST 
CONTAIN THE DEFAULT EXTENSION 
TYPE - SEE 'SPLM. LIB' FOR 
SYMBOLIC CONSTANTS TO US 17 . 
SPACE COMPRESSION IS ALWAYS 
INHIBITED BY DEFAULT */ 

EDOPER:PROC; 

FCBA = .RFCB; 

CAIL CETFIL; 

IF ERROR THEN DC; 

CALL RPTERR; 

CALL WARMS; 
END : 



CD 



LN2F.ir.LIE 6-12-7? PAGE E.7 

EFCE(XFC) = 0S04E; 

CALL SET'LXT; /* DEFEXT KUST BE SIT UP */ 

CALL FKS; 

IP ERROR THEN DO; 

CALL RPTERR; 

CALL WARMS: 



PMrt • 



END; 



/* INHIBIT SPACE CORP */ 
EFCB(XNC) = TRUE; 



/* RBFE - E^AD OFF BYTE FROM DISK 
I ETC (GLOBAL) CEAR. 
ON EXIT, REOF = TRIF IF T? NB O'P 
FILE, ELSE EEOF = FALSE */ 

DCL REOF BYTE; 
RBFDrPRCC; 

REOF = TRUE; 

RFCB(XFC) = Q3EE; 

FCBA = .RFCB; 

CALL FES; 

GEN (/*STAA*/97H, .CHAR) ; 

IF ERROR THEN DO; 

IF RFCB(XES) = EEOF THEN RETURN; 
ELSE CALL RDER; 

END; 

R^OF = JALSF; 
END ; 

/* RBFBE - ?SAT ON ri BYTE PEON DISK 
INTO (GLOBAL.) CEAR. END OF 
FILE HANDLED AS FATAL ERROR */ 

RBFE^:PROC; 

CALL REFD; 

IF REOF THER CALL RDER; 
END; 
^LIST 
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^NOLIST 

/* SPLM LIBRARY 'SFLMWRIT.LIB' — 

WRITE ROUTINES 

ILEX VERSION 1.0 6-9-79 */ 

/* THESE ROUTINES CAN IE USED BY AN 
SPLK PROGRAM TO WRITE A SEQUENTIAL 
FILE. A FILE CONTROL BLOCK NAKED 
'WFCB' MUST BE DECLARED BEFORE 
THE LIBRARY INCLUDES, E.G.: 

100H: DCL RFCB (320) BYTE, 
DCL V/FCB (320) BYTE; 
''■INCLUDE SPLM.LIB 
"INCLUDE SPLMREAD.LIB 
^'INCLUDE SPIKWEIT.LIB */ 

/* WTCLOSE - CLOSE A FILE PREVIOUSLY 
OPENED FOR WRITING */ 

WTCLOSE : PROC : 

WFCB(XFC) = QSCLS; 
FCBA = .V/FCE; 
CALL FMS; 
IF ERROR THEN DO; 

CALL RPTERR; 
CAIL WARMS; 
END ; 
END; 

/* WTER - HANDLE FATAL READ ERRORS */ 

WTER : PROC ; 

FCBA = .WFCE; 
CALL RPTERR; 
CALL WTCLOSE; 
CAIL WARMS; 



/* WTOPEN - OPEN A FILE FOR WRITING. 
ON ENTRY, (GLOBAL) DEFEXT MUST 
CONTAIN THE DEFAULT EXTENSION 
TYP^ - S"E 'SPLM.LIB' FOR 
SYMBOLIC CONSTANTS TO USE. 
SPACE COMPRESSION IS ALWAYS 
INHIBITED BY DEFAULT */ 

WTOPEN: PROC; 

J. V/.l.jl- — . •! J. V>X- , 

CAIL G^TFIL* 

IF" ERROR THEN DO; 

CALL RPT'ERR; 
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.-"'ATT WAP'' 1 ^ • 



r MD; 



END; 



WFCB(XFC) = QS04W; 

CALL- SETEXT; /* DEFEXT MUST BE SET UP */ 

CALL IMS; 

IF FEEOB THEN DO; 

CALL RPTERR; 

CALL WARMS; 

END; 
/* INHIEIT SPACE COM? */ 
WFCE(XNC) = TRUE; 



/* IvBTE - WRITE ONE BYTE FROM (GLOBAL) 
CHAR TO DISK. */ 

WETD:PROC; 

WFCB(XFC) = QSRW; 

FCBA = .WFCB; 

GEM(/*LDAM/96H, .CHAR) ; 

CALL FES; 

IF ERROR THEN CALL KTFR; 
?ND; 
§tIST 
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SIZE SPL/K COMPILER VERSION 1.2 6-12-79 PAGE C.2 

0001 /* SIZE — DISPLAYS SECTOR COUNT, */ 

0002 /* LENGTH IN DECIMAL AND REX, */ 

0003 /* NUMBER OR LINES (CR'S), PLUS */ 

0004 /* CHECKSUM AND CREATION DATE OF */ 

0005 '/* A RILE. */ 

0006 /* */ 

0007 /* PLEX VERSION 1.0 */ 
0C08 /* 6-11-79 */ 
0009 

0-10 0A100H:; 

0011 DCL VERSION LIT '1'; 

0012 

0013 0A340H:DCL RECB (320) BYTE; 

0014 

0015 /* //INCLUDE SPLM.1IB — LIBRARIES INCLUDED HERE 

0016 //INCLUDE SPLMREAD.LIB */ 
0322 

0323 DATE:PR0C; /* OUTPUT DATE AS MM-DD-YY */ 

032'; DCL MONTH LIT '25', DAY LIT '26', YEAR III '27'; 

0325 DCL DGT ADDR; 

0326 LDSPC = PALSE; 

0327 IP RFC B( MONTH) < 10 THEN CALL SPACE; 

0328 DCTA = .DGT; 

0329 DCT = RFCB(MONTH); CALL OUTDEC; 

0330 CHAR = '-': CALL PUTCRR; 

0331 DGT = RFCB(DAY); CALL OUTDEC; 

0332 CHAR = '-': CALL PUTCHR; 

0333 DCT = EFCB(YEAR); CALL OUTDEC; 
033' IP RFCB(DAY) < 10 THEN CALL SPACE; 

0335 CALL SPACE; 

0336 END; 
0337 

0338 ASIZErPEOC; /* OUTPUT SIZE AND CHECKSUM INTO PGR A PILE */ 

0339 DCL BYTESCTR ADDR, LINE$CTR ADDR, CHKSUR BYTE; 

0340 DCL TBYTECCTR ADDR, FLAG BYTE; 

0341 DCL XSIZ LIT '21'; /* LOG OP SECTOR SIZE IN PCB */ 

0342 DCL CR LIT 'ODH'; 
43 

03'r BYTESCTR = 0; LINFSCTR = 0; FLAG = PALSE; CHKSUM = 0; 

0345 CALL RBFD; 

0346 DC WHILE NOT REOF; 

0347 IF FLAG AND (CHAR <> 0) THEN FLAG = FALSE; 

0348 IF NOT FLAG AND (CHAR = 0) THEE DO; 

0349 FLAG = TRUE; 

0350 /* MARK LAST NON-ZERO BYTE */ 

0351 TEYTESCTH = BYTE$CTR; 

0352 END; 

0353 CKKSUM = CHXSUH + CHAR; 
035' BYTESCTR = BYTESCTR + 1 ; 

0355 IF CHAR = CR THEN LINE$CTR = LIMESCTE + 1 ; 

035 6 CALL RBFD; 

0357 END; 



SIZE SPI/M COMPILER VERSION 1.2 6-12-79 RAGE c.3 

0358 IF FLAG IFEN /* STRING OF NULLS AR END */ 

0259 BYTE^CTE - T3YTF3CTR; 

0360 

0361 LDSPC = TRUE; 

0362 DGTA = .RFCB+XSIZ; CALL OUTDEC; /* SECTOR SIZE */ 
0/63 CALL SPACE; 

036 

0365 DGTA = .BYTE$CTR; CALL OUTDEC; /* BYTE COUNT */ 

0366 CALL SPACE; CALL SPACE; 
0367 

0368 CALL OUTAPR; /* IN HEX */ 

0369 CALL SPACE; 
0370 

0371 DCTA = .LINE$CTR; CALL OUTDEC; /* LIFE COUNT */ 

0372 CALL SPACE; CALL SPACE; 
0373 

037' DCTA = .CHXSUF; CALL OUTKFX ; /* CHECKSUM */ 

0375 END; 

0376 

Cb77 /* MAIN */ 

0378 DCL HEADER DATA (' DATE NS DEC HEX LINES CS', 

0379 CRLF,CRLF,4); 
0380 

0331 DFFFXT = DXTXT; 

0382 CALL RDOPFN; 

0383 

033' f'SGA = .HEADER; CALL PSTRNG; 

0385 CALL DATE; 

0386 CALL ASIZE; 
0337 

0388 CALL EDCLOSE; 

0339 CALL V/ARMS; 
0390 

0391 LVL 00 

001C ANYDOTS BYTE 

A2A8 ASIZE ?ROC 

AC18 CURCHR BYTE 

"DOA CRLF LIT 

0010 CHAR BYTE 

A12" CLASS PROC 

0000 DXBIN LIT 

0001 DXTXT LIT 

0002 DXCKD LIT 

0004 DXSYS I IT 

0005 DXBAX LIT 
OOOB DXOUT LIT 

0016 DEFEXT BYT-' 

0017 DGTA ADDR 
A19E DOCMNR PRCC 
A253 DATE PROC 
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AC02 EOLCHR BYTE 

0008 EFOP LIT 

0013 ERROR BYTE 
0000 FALSE LIT 

0014 PCBA ADDR 
A1A4 EMS PROG 
B403 PMSCLS LIT 
A10A GETCHR PROC 
A 138 GETEIL PROC 
A164 GETHEX PROC 
A3 66 HEADER BYTE 
AD1B INBUEE LIT 
A 184 INDEC PROC 
A080 LINBUF BYTE 
AC 11 LASTTERM BYTE 
AC14 LINPTR ADDR 
AD30 LOAD LIT 
0019 LDSPC BYTE 
0011 MSGA ADDR 

A 132 NXTCH PROC 

001 A NUM ADDR 

A 150 OUTDEC PxROC 

A 158 OUTHEX PROC 

A17E OUT ADR PROC 

AC19 PREVCHR BYTE 

A 110 PUTCHR PROC 

A11C PSTRNG PROC 

AD24 PCRLF LIT 

0000 QSRW LIT 

UG01 QS04R LIT 

0002 QS04W LIT 

0003 QS04U LIT 

0004 QSCLS LIT 

0005 QSREW LIT 
A840 RFCB BYTE 
AD2A RSTRIO LIT 
A15E RPTERR PROC 
A1B6 RDCLOSE PROC 
A1D2 RDER PROC 
A1E1 REOPEN PROC 
001 D RFOE BYTE 
A216 REFD PROC 
A244 REEDE PROC 
ACOE SMONTH BYTE 
ACOE SDAY BYTE 
AC10 SYSAR BYTE 
A116 SPACE PROC 
A148 SETEXT PROC 
OOPE TRUE LIT 
0C01 VERSION LIT 
A 106 WARMS PROC 
0000 XEC LIT 
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0001 


XFS 


LIT 


OC03 


/XUN 


LIT 


0004 


XEN 


LIT 


OOOC 


XEX 


LIT 


OOOF 


XFS 


LIT 


003B 


XKC 


LIT 


0391 


eop 





**** NO ERRORS 
HIGH A.DDR USED: 44D6 



PAGE 2.1 OF 



SYSTEM NAME 



SYSTEM NUMBER 



CATALOGUE NUMBER 



PROGRAM NAME 



PROGRAM NUMBER 



DATE DOCUMENTED 



APPENDIX D 
SPL/ M Reserved Words 



pnou nnr.ini a . tk /^._-..i rv n *.,m.n,**»i.- 



ffl 1976 PROGRAMMA CONSULTANTS 



SYSTEM NAME 



PROGRAM NAME 



SYSTEM NUMBER' 



PROGRAM NUMBER 



PAGE D.2 0F 



CATALOGUE NUMBER 



DATE DOCUMENTED 



SPL/M Reserved Words 



ADDR 




LIT 


ADDRESS 




litera:lly 


AND 


* 


LOW 


** BASED 


* 


MEM 


BREAK 


* 


MEMA 


** BY 


-»* 


MINUS 


BYTE 




MOD 


CALL 


** 


MONITOR 


DATA 




NOT 


DCL 




OR 


DECLARE 


** 


PLUS 


DO 




PROC 


ELSE 




PROCEDURE 


END 




RETURN 


EOE 




THEN 


GEN 




TO 


GENERATE 




WHILE 


* HIGH 




XOR 


IE 






* - Reserved word in Version 1 only 


** — Reserved word i 


n futu 


re version 



illegal in Version 1 
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Grammar for SPL/i-i V1.1 

<program> ::= <init> <main> EOP 

<init> ::= <istmt list> i <origin> j <istmt list> 

<istmt list> ::= <istmt> ! <istmt list> <istmt> ! Nil 

<istmt> ::= <decl stmt> ; ! <proc def> ; i <gen stmt> ; 

<origin> : := <number>: 

<proc de£> ::= <proc head> <stmt list> END 

<proc head> ::= <identifier> : PROCEDURE ; 

! <identifier>: PROC ; 
! <origin> <proc head> 

<main> ::= <stmt list> ! <origin> <stmt list> 



<stmt list> 



<stmt> ! Xstmt list> <stmt> J NIL 



<stmt> ::= <basic stmt> ! <if stmt> 



<basic stmt> 



:= <assignment> ; 
<group> ; 
<call stmt> ; 
RETURN ; 
BREAK ; 
<decl stmt> ; 
i <gen stmt> ; 

<if stmt> ::= <if clause> <stmt> 

! <if clause> <basic stmt> ELSE <stmt> 

<if clause> ::= IP <expr> THEN 

<group> ::= <group head> <stmt list> END 

<group head> ; := DO ; 

! DO WHILE <expr> ; 

<call stmt> ::= CALL <identifier> ! CALL <number> 
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<decl stmt> ::= DECLARE <decl elements 

! DC1 <decl element> 
! <decl stmt> » <decl element> 
! <origin> <decl stmt> 

<decl element> ::= <identifier> <type> 

j <identifier> ( <number> ) <type> 
! <Identifier> DATA <data list> 
! <identifier> LITERALLY '<number>' 
< <ident±fier> LIT '<number>' 

<type> ::= BYTE ! ADDRESS ! ADDR 

<data list> : := <data head> <constant> ) 

<data head> ::= ( ! <data head> <constant> , 

<gen stmt> ::= GENERATE <data list> 

! GEN <data list> 



<assignment> 
<expr> : : 



<variable> = <expr> 



:== <logical factor> 

! <expr> OR <logical factor> 
! <expr> XOR <logical factor> 

<logical factor> : := <logical secondary> 

! <logical factor> AND <logical secondary > 

<logical secondary> ::= <logical pri.mary> 

! NOT <logical pr±mary> 

<logical primary > ::= <arith e.xpr> 

! <arith expr> <relation> <aritii expr> 



<relation> ::= = 
<arith expr> ::= 



<> 



<= ! >= 



i <term> 
! <arith expr> + <term> 

! <arith expr> - <term> 



<term> ::= <secondary> 

! <term> * <secondary> 
! <term> / <secondary> 
! <term> MOD <secondary> 
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<secondary> : := <primary> 

! - <primary> 

<primary> ::= <constant> 

<variable> 
( <expr> ) 
HIGH ( <expr> ) 
LOW ( <expr> ) 

<variable> : := <identif ier> 

<identifier> ( <expr> ) 
MEM ( <expr> ) 
MEMA ( <expr> ) 

<constant> ::= <number> ! *<string>* ! .<identifer> 

<identifier> ::= <letter> 

[ <identifier> <dec digit> 
! <identifier> <letter> 
! <iden tif ier> $ 



<letter> : := A ! B ! C ... 
<number> : := <dec number> 



<hex number> E 



<dec number> : := <dec digit> 

! <dec num> <dec digit> 
! <dec num> $ 

<hex number> ::= <dec digit> 

! <hex num> <hex digit> 
i <hex num> $ 

<dec digit> : := ! 1 ! 2 ... ! 9 

<hex digit> ::= <dec digit> ! A ! E ! C ! D ! E ! F 
<string> ::= <str element ! <string> <str element> 
<str element> ::= <ASCII char> 



i * * 

i 
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This is to document version 1.3 of SPL/M, a Systems Programming Language 
for Microcomputers. These pages are in addition to the SPL /M Reference Manua l 
for version 1.2. 

SPL/M has proven itself a useful and appropriate language for systems and 
utility programming for the 6800 microcomputer. Faster than an assembler, 
SPL/M generates code at the rate of 1000 lines of source per minute. Code is 
easily block structured and simply documented for clean code generation. And 
1/0 libraries make interfacing with various computers just a matter of 
substituting the appropriate libraries. 

Now SPL/M is being enhanced from v. 1.2 to v. 1.3. There are currently 
four compilers running under development: 

SPLM00, the enhanced 6800 compiler; 

SPLM09, a 6809 compiler which runs on the 6809; 

SPLM09X, a 6809 cross-compiler which runs on the 6800; and 

SPLM00X, a 6800 cross-compiler which runs on the 6809. 

Currently being developed are cross-compilers to generate 8088 and 6502 code. 

If the enclosed disk is for generating 6809 code on a 6809 FLEX system, 
it contains: 

SPLM09.CMD 

FLX09.TXT, source for the 1/0 portion of SPLM09.CMD, and its LIB 
files, FLXA-C09, FLXB, FLXC-T68, FLXD-C09, FLXE, and FLXF. 
SPLM.LIB, SPLMREAD.LIB, and SPLMWRIT.LIB for FLEX09. 

SPLM's transfer address remains 380H. 

The 1/0 section (the files starting with "FLX") is located at $7000 — you 
may relocate it elsewhere if you wish by changing it in FLXD-C00.TXT or 
FLXD-C09.TXT (whichever is on your disk). We have put it at $7000 to allow us 
larger symbol tables and thus larger programs. 

Version 1.3 of SPLM is still under development, but here are the changes 
from version 1.2 so far: 

1) Lower case is now fully supported: within the code being 
compiled; in response to prompts; in naming filenames in 
includes; and in listing options on the command 

line — that is, everywhere. For identifiers and reserved 
words, upper and lower case are treated identically. 

2) The dot-operator can be used with procedures, i.e., 
'.proc' generates a numeric constant equal to the memory 
address of a procedure. 

3) Jumps around data declarations: When the primitive 'DCL' 
is used only once with more than one set of 'DATA' 
declarations (each set separated by commas), for example, 
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DCL GOFLAG DATA (0), 
TEST DATA (1), 
RUNFL DATA (0); 

only one jump is generated around all of the data code 
(subject to the flxup jump limitation of 512 bytes); in 
v. 1.2, a jump was generated around each 'DATA' 
declaration; to maintain compatibility, v. 1.3 will 
generate a jump around each 'DATA' declaration when a 
'DCL' is put in front of each one and a semicolon is used 
to separate them. 

4) The maximum line length is changed from 80 characters to 
132. 

5) Indirect CALL's can now be made. This can be done two 
ways, both involving use of an ADDR variable: 

a) There are times when a specific address has been set 
aside to hold the address to which you want to junro. 
For example, in the Color Computer, $A002 holds the 
address of the CHROUT routine — to call it in 6809 
assembly language means writing JSR [$A002]. Doing 
the same indirect call in 6800 assembly language 
means writing several lines of code, loading X with 
the variable's address and jumping indexed (and 
indirect) through it. To do the same indirect call 
in SPLM, first declare the specific address as a 
variable, 

0a002h:dcl jump addr; 

Then just 

CALL JUMP; 

b) On the other hand, you may have set up a data table 
of addresses, possibly using the new .proc function, 
in your SPLM code. Your code has figured out which 
of the addresses to call. So, having declared AAA an 
ADDR variable, write: 

AAA=mema(data) ; 

(or AAA=.proc or whatever) and 

CALL AAA; 

CALLing variables was illegal in v. 1.2. Now only 
calling BYTE variables is illegal — a variable byte 
wide obviously can't be holding the address of the 
procedure to be called indirectly. If you call a 
variable that has been declared as a BYTE variable, a 
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new error, "T" for Type Error, will be put In the 
code as It's compiled, below the variable name you've 
tried to call. 

6) Fatal errors send messages to the screen, then return to 
FLEX (WARMS). Supposed "impossible" errors send the 
address at which the program failed to the screen along 
with a message, then return to WARMS (if you get the 
error message "IMPOSSIBLE ERROR", please send an error 
report to SOFTWEST, 465 S. Mathilda Ave., Suite 104, 
Sunnyvale CA 94086). No longer do fatal errors of either 
type cause a register dump, then bomb to the monitor. 

7) While the manual (p. 30) documents 64 levels of symbol 
table nesting before the program is too complex, it was 
wrong. The old level was 8. The new level is 30. 

8) The default address at which variables are put, always 
10H until now, has been changed to and put in a data 
table so the user can change it. It's called IDATA and 
is declared in the I/O section in FLXC-T68.TXT. 

9) The default address at which the program is put remains 
100H, but is now in a data table so the user can change 
it. It's called IPC and is declared in the I/O section 
in FLXC-T68.TXT. 

10) SPLM now checks numbers as it reads them and puts a "T" 
for Type Error on those hex numbers greater than Offffh 
and those decimal numbers greater than 65535. So now 
users get notified when they try constructions like 

DCL JUMP DATA (7E3F00H); 
T 

which should be written 

DCL JUMP DATA (7EH,3F00H); 

11) The multiply and divide routines no longer use memory 
address space: v. 1.2 put variables at locations and 1; 
v.1.3 uses no memory — only the registers and the stack. 

12) //PAGE is the first of a series of new //directives. 

//Directives, directives to the compiler itself, were 
limited in v. 1.2 to: //INCLUDE, //LIST, and //N0LIST. 
Unlike program source statements, //directives need not be 
ended with a semicolon, but must appear on a single line, 
with their first character, the '//', in column 1 of the 
line. Comments (/*comments*/) must never be put on the 
same line with a //directive. 
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#Directives which are printed out (only #LIST, #NOLIST 
and #PAGE are not printed out) are not prefaced by line 
numbers, since they are messages to the compiler and not 
source statements. 

#PAGE is a page formatting command which calls for a 
formfeed to be output. #PAGE does nothing, however, when 
found inside a nolist area (delimited by #NOLIST and 
#LIST), so that when source is not being listed, 
formfeeds are obviously not required either. 

#PAGE causes a change, but is never printed on the 
listing itself, just as #NOLIST and #LIST are not printed 
on listings. 

13) #INCLUDE lines are now printed on listings to tell you 
from which file the source you're reading came. 

14) #SPLMVERSION is the first of two several portability 
^directives. Any program with lower case, for example, 
or longer-than-80-column lines or use of dot-proc 
requires at least version 1.3 of the compiler to compile 
it. So the programmer would want to write "ffSPLMVERSION: 
1.3" at the beginning of the program. The SPLM compiler 
spots the statement and compares the number with its own 
version number, located in an internal data statement, to 
be sure it can compile the program. If not, it outputs a 
polite message and calls WARMS. This will become 
important as future versions of SPL/M provide further 
enhancements, which previous versions cannot support, and 
particularly as SPL/M programmers trade, sell or give 
away source code. 

15) #PROCESSOR is another portability command. If a 
programmer writes a GEN statement for, say, a 
6809-machine-language LDY instruction, then the program 
is clearly 6809-bound. He or she would want to indicate 
that by inserting in the program: "^PROCESSOR? 6809". 
If, on the other hand, he or she puts in a GEN statement 
for a jump, the code for which is the same for 6800 and 
6809 machines, the statement to include would be 
"//PROCESSOR: 6809, 6800" (in either order). The 
compiler, when it encounters the statement, checks to be 
sure one of the named processors (separated by commas) is 
the same as the processor it compiles code for. If not, 
it outputs a polite message and calls WARMS. This will 
become increasingly important as we do SPL/M compilers 
for the 6805, the 6502 and the 8088. 

Until the compiler encounters either statement 
(//PROCESSOR or #SPLMVERSION) , it will assume that any 
version and any processor will do. Attempting to compile 
a program which includes either of these two commands 
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using the v. 1.2 compiler will result in a syntax error 
flag. 

16) Files, either main files or //INCLUDE files, can be 
chained together with the new //CHAIN //directive. In 
other words, when the compiler encounters 

//CHAIN NXTFIL 

it closes the file it has been reading source from and 
opens the file NXTFIL for continued reading. Nesting 
//INCLUDE files is still not allowed, but a file called as 
a //INCLUDE file could be chained to another file with 
//CHAIN and both would be read before the compiler 
returned to the main file. 

//CHAIN and //INCLUDE errors, however, are fatal (both the 
erroneous line and an error message are put before the 
return to WARMS). 

17) Conditional compilation is now allowed using the new //IF 
and //ENDIF //directives. Now you can write just one 
program which will compile different ways (one source 
listing which will compile four sets of object, each with 
a different terminal driver, for example; or one set of 
source which will compile two ways, one for 6800 and one 
for 6809), depending on the values of a few initial 
LITERALS. 

For example, you could set up a file PR0GRAM0: 

/*PROGRAM0: PROGRAM FOR THE 6800*/ 
DCL TARGET LIT '6800'; 
//SPLMVERSI0N: 6800 
//CHAIN PROGRAM 

And another file PR0GRAM9: 

/*PR0GRAM9: PROGRAM FOR THE 6809*/ 
DCL TARGET LIT '6809'; 
//SPLMVERSION: 6809 
//CHAIN PROGRAM 

Now PROGRAM will be written to contain the source for 
both 6800 and 6809 versions with //IF to differentiate: 

/♦PROGRAM*/ 
//IF TARGET=6800 
0A100H:; 

//ENDIF 

//IF TARGET=6809 
0C100H:: 
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#ENDIF 

DCL VERSION LIT '1'; 

«F TARGET=680Q 
0A840H:DCL RFCB(320) BYTE; 
^INCLUDE SPLMOO.LIB 
//INCLUDE SPLMRDOO.LIB 
#ENDIF 

#IF TARGET=6809 
0C840H:DCL RFCB(320) BYTE; 
♦INCLUDE SPLM09.LIB 
//INCLUDE SPLMRD09.LIB 
//ENDIF 

/*REST OF PROGRAM*/ 

The compiler will compile only //IF segments which are 
true. So working on the 6800 computer, you can type 
SPLMOO PROGRAM© and get 6800 code or SPLM09X PR0GRAM9 and 
get 6809 code. The //SPLMVERSION protects you from doing 
an SPLMOO PR0GRAM9 or a SPLM09X PROGRAMO: both will issue 
you a message noting the incompatibility and return you 
to WARMS. 

The syntax of //IF is limited to two forms, both requiring 
a previously declared LITERAL: 

//IF <literal-name> 

//IF <literal-name> <relational-operator> <constant> 

For example, //IF TARGET would evaluate TARGET just as it 
would be evaluated in the source line IF TARGET THEN DO; 
— that is, based on whether the rightmost bit of 
TARGET'S value is a '1' (in which case it evaluates true) 
or a '0' (in which case it evaluates false). 

Examples of the second //IF statement, using relational 
operators, include the //IF TARGET=6800 above, //IF 
TARGET>=6800, //IF GIMIX=0FFH, //IF GIMIX=FALSE (with FALSE 
defined as a LITERAL earlier as well as GIMIX defined as 
a LITERAL earlier), and //IF TARGETO8088. 

If a //IF //directive is found to be true, every statement 
which follows is compiled as though the //IF is not there, 
except that a matching //ENDIF must be encountered before 
the EOF ending the program. 

If, on the other hand, a //IF //directive is evaluated 
false, then all source is ignored to the matching 
//ENDIF: No object is generated; the ignored source is 
printed out, but without line numbers; and only a subset 
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of the //directives are executed: 

//INCLUDE 

//CHAIN 

//PAGE 

//LIST 

#NOLIST 

The portability commands //PROCESSOR and //SPLMVERSION are 
not evaluated inside Invalid-//IF segments. 

//IF //directives may be nested up to 8 deep (deeper 
nesting causes a fatal error). 

If a //IF is encountered inside a //IF segment already 
found invalid, the new //IF is automatically evaluated 
false. Now two //ENDIF //directives must be found to match 
both //IF's before object code generation will continue. 

The //ENDIF to match a //IF should always appear in the 
same file. That is, if you use a //IF before calling a 
//INCLUDE file, do not put the matching //ENDIF in the 
//INCLUDE file; the matching //ENDIF must be found in the 
calling file following the //INCLUDE. 

18) A command line option, +1, has been added. If used, the 
source inside invalid-//IF segments will not be printed on 
listings (and the //PAGE command found inside an 
invalid-//IF segment is not honored). 

Using the +1 option, you could print out separate 
listings for each of the sets of object a single program 
compiles. 

19) A new '//' error flag has been created to put beneath 
non-fatal erroneous //directive lines. This error flag 
would be put for example, for incorrectly written 
//SPLMVERSION and //PROCESSOR lines, or beneath the EOF 
when a //IF has not been matched with a //ENDIF at the 
point the EOF is reached (note: if the EOF is inside an 
unmatched-but-invalid-//IF segment, it won't even be seen 
and you'll get FLEX's "Read Past End of File" error 
message). 

20) Symbol tables now include both the line number and the 
address at which a procedure, literal, or variable is 
declared (previously, line numbers were not included in 
the symbol table). This makes it simple and 
straightforward to use the symbol tables to reference 
into source-only listings (in which no object code is 
listed). 



SPL/M 



A SYSTEMS PROGRAMMING LANGUAGE FOR MICROCOMPUTERS 



SPL/M v. 1.3 -8- 



As has always been the case, SPL/M-generated code is 
interrupt-compatible. Stack space below the stack pointer is never used 
without first decrementing the stack pointer (thus, in case of interrupt, no 
data can be written over when the registers are stacked). 

If this is a 6809 version of the compiler, here are two 6809 compiler 
design assumptions: 

The compiler does not use the U register at all— we left 
it free for OS-9's use. An 0S-9 version of SPL/M is under 
development. 

SPLM09 does not support any direct page other than 0, at 
this time, so SPLM09 automatically sets the direct page to 
in the first few bytes of every program it compiles. 

Code generated by the current level of SPLM09 is not 
relocatable. A relocatable 6809 code generator is under 
development, and of necessity will be a part of the 0S-9 
version of SPL/M. 
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The purpose of the SPL/M libraries is to create an operating 
system interface and I/O support functions in a portable manner. 
Owners of SPL/M may use the libraries in any programs they write, 
including programs for commercial distribution, free of any 
charges beyond the original purchase price of SPL/M. 

The SPL/M libraries are not necessary for writing a program 
in SPL/M. SPL/M is often used, for example, for writing 
instrument controllers, an application for which a library 
designed to interface with a standard microcomputer operating 
system and computer has no use. On the other hand, some 
companies have found it useful to create their own libraries of 
routines (perhaps to put characters and strings on the display, 
even though it's an LCD display) which match the library 
routines, allowing some testing to be done with standard 
libraries on an IBM or SWTP before the code is recompiled with 
the special libraries and moved into the instrument. 

Each set of SPL/M libraries creates an I/O interface to a 
particular operating system and/or computer. The libraries are 
designed to make writing to or reading from a terminal, printer, 
communications line, or disk files easy. 

They are also designed to create an I/O interface which is 
com p 1 e t e 1 y p o r t a b 1 e b e t w e e n t h e many c o m p u t e r s a n d o p e r a t i n g 
systems which the different sets of libraries support: Each 
routine in the libraries is called in the same way and sent the 
identical parameters regardless of the target computer or chip. 

For example, to output a message to the terminal requires 
setting a library parameter called MSGA equal to the address of 
the message (which is terminated by a 0) before calling a library 
routine called PUTTERMSTR, which prints it on the screen. Using 
the library routine allows you to ignore the incompatibilities 
between the FLEX operating system, which has a routine to print 
strings terminated by a 4, and the IBM DOS operating system, 
which has a routine to print strings terminated by a '$', and 
other operating systems which require yet other terminators for 
their print-string routines. The SPL/M library routine 
PUTTERMSTR for FLEX prints strings terminated by a 0, the SPL/M 
library routine PUTTERMSTR for IBM DOS prints strings terminated 
by a 0, and the SPL/M library routine PUTTERMSTR for all other 
operating systems prints strings terminated by a 0. 

A full set of portable library interfaces to each DOS 
creates considerable code, so routines a.re divided into three 

1 i braries: 

SPLM .LIB (the underlines are for characters which change 

- SPLM00FS.LIB for 6800 FLEX running with the SWTBUG 
man i t or , SPLM09F . L I B f or 6809 FL..E X , an d SPLM88M I . t... I B 
for 8088 MSDOS running on the IBM PC) is made up of 
routines: to output, to the screen, printer, and 
communications line (plus a redi rectable set); to clear 
the screen:: to ring the terminal's bell; to output 
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numbers in decimal or hex; to input (a character or a 
line -from the terminal, keyboard, a character -from the 
communications line, a character from a redirect able 
source,, and hex or decimal numbers) 5 to set and qet 
date and time 5 to move strings? to classify characters n 
and to initialize all these library routines. This 
library also sets initial locations for all variables 
:i. n t. h e 1 i b r a r i e s a n d f o r t. h e p r o g r a m , T h i s 1 i b r a r y may 
b e u s e d e x c 1 u s i v e o f t h e o t h e r two lib r a r i e s ,. 

SCRN .LIB is written for specific terminals; it may or may 

not be portable to yours., It contains routines which 
get the cursor position or position the cursor, home 
it, clear to end of line, clear to end of screen, (all 
of which requires a terminal with go-to-x-y addressing) 
a n d t o p u t u n d erline, b o I d f a c e , c^n d reve r s e c h a.ra.cters 
on the screen, for terminals so capable. Routines in 
t h i s 1 i b r a r y c a 1 1 r o u t i n e s 1 o c a t e d i n S P L M . I.„ I B , s o 
t h a t 1 i b r ary m u s t Id e i n c 1 u d e d b e f o r e this on e i s « 

RDWT .LIE? is made up of routines for accomplishing disk 

operations! (Betting and setting the working drive; 
getting freespace on a disks doing a disk directory; 
d e I e t i n g a f i 1 e ; r e nami n g a f i 1 e ; d o i n g a b i n a r y 1 o a d ; 
read i n g f r o m t wo s i m u 1 1 a n e o u s 1 y open file s ( o p e n f i 1 e , 
read byte, and close file); and writing to two files 
simultaneously (open file, write byte, and close 
•File). Routines in this library call routines located 

in SPI M .LIB, so that library must be included before 

this one is. 

The libraries are brought into a program by using the 

# INCLUDE statement. Because SPLM .LIB sets the initial 

variable "location, this library must be included prior to 
declaring any other compiler-located variables in your program,. 
Of course (since SPL/M is a one™ pass compiler), libraries must be 
i n c 1 u d e d b e f o r e a n y o f t h e i r r o u t i n e s a r e c a 1 1 e d o r t h e i r 
varia b 1 e s u. s e d „ 

Both SPLM ...LIB and RDWT .LIB are sprinkled with 

conditional compilation statements to shorten the amount of code 
the libraries generate; you'll need to declare literals prior to 
i n c 1 u d in g t. he li.br a r i e s t o g e t a number of s e c t i o n s t o c o m p i 1 e 
code. For example, to compile code from the printer routines in 

SPLM .LIB, you'll have to put. the following statement into your 

<:::. o d e p r i o r t o in c 1 u d i n g t h e 1 i b r a r • y 5 

DCL NEEDPRT L I T ' TRUE ' ; 

So just as the literal NEEDPRT controls compilation of 

printing routines, NEEDCOM controls com line routines, NEEDNUMS 

controls numeric input and output routines, NEEDD I SKUTI LS 
controls disk utility routines (directory, freespace, rename, 
delete, etc.), NEEDRFCBS controls disk-read routines, and 
MEEDWFCBS controls disk-write routines. All are initialized to 
be false, so that code within will not be generated. To turn 

them on: declare NEEDPRT, NEEDCOM, NEEDNUMS, or NEEDDISKUTILS 

literally true; declare NEEDRFCBS or NEEDWFCBS literally '1' or 
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depending on if you need one or two read 
ti me. 



or write files on en 



You may also trim both the size of the source file and the 
size of code generated by editing down the library files to just 
the routines and variables you need for a specific program. 

"!" h e r e a r e 1 i m i t s t o p o r t a b i 1 i t y ; 

The SCRN .LIB library has the least portability,, Each 

SCRN .LIB library supports a single terminal. Terminals must 

have go-to x--y addressing to be able to implement any of the 

cursor functions in the library, A program which uses these 
functions is not portable to computers with terminals which 
cannot go-to-x-y; the results are unpredictable. On the other- 
hand, programs which call for characters to be displayed in 
r e v e r s e ,, b o 1 d f a c e , o r u. n d e r I i n e a r e p o r t a b 3. e t o t e r m i n a Is w i t h o u t 
such character attributes! Characters &r<s displayed normally on 
s u c h s y s t e m s . 

R on. t i n e s , variab 1 e s , a. n d o t h er id e n t i f i e r s w h i c h a r e n o t 
guaranteed to be portable from one machine/operating system/chip 
to another have been given labels which begin with "21", such as 
"ZZLOAD", which loads a binary file into memory, but not 
portably. Be warned that using any library label beginning with 
"ZZ" in your program source puts your program's portability at 
serious risk. 
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SPLM. -LIB 

SP!.-M...„ .LIB (the underlines are -for characters which change 

on 6800 FLEX with the SWTBUG monitor, it's called SPLM00FS. LIB , 

on 6809 FLEX SPLM09F. LIB , and on 8088 MSDOS -for the IBM PC 
BPLM88MI.L1B) is made up of 5 

constants , 

variabl es, 

a r out :i. n e t o :i. n i t i a 1 i z e t h e lib r ar i es , 

g e n e r a 1 r o u tine s , 

terminal routines (input from the keyboard; output to the screen) „ 

redirectable routines (input from anywhere; output to anywhere) „ 

comline routines (communications line via modem or local network), 

p r i n t e r r o u t i n e s , 

time and date routines, 

move routines, and 

number input and output routines (both hex and decimal). 

This library also sets an initial variable location for all 
variables in the libraries and the program. Use of this library 
does not require use of either of the other two SPL/M libraries. 

The libraries are brought into a program by using the 
# INCLUDE statement. Because SPLM .LIB sets the initial 
variable location, this library must be included prior to 
declaring any other variables in your program,, 

SPLM .LIB is sprinkled with conditional compilation 

statements to shorten the amount of code the libraries generate; 
you'll need to declare literals prior to including the libraries 
to get a number of sections to compile code. This is noted in 
each section to which it applies (printer, communications line, 
and numbers) . 
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Constants 



BF"L.M .LIB provides a set of constants to describe the 

environment which the library is designed -for. Some constants 
are declared as literals because we believe there would be no 
purpose in patching them. Others are declared as data to allow 
them to be patched should different hardware present, differing 
requirements. All are available for use by your programs. 



TARGET 



TARGET is a literal which specifies the target microchip for 
use in your source later (e.g., #IF TARGET=6800> . 



BS equals the ASCII value which the backspace key on the 
k e y b o a r d r e t u rns. 

AODLFT add line feed to terminal 

AJ1SLEQ. - add line feed to communications line 

A.0.8LE.R '"" «*dd line feed to printer 

0J3DL.EP". -• add line feed to disk 

These constants are used to determine if the library must, 
after sending a cr to a particular hardware device, follow 
the cr with a line feed (the constant is set equal to 1. ) , or 
if the hardware takes care of the function or no line feed 
is required to be put at all (it's set equal to 0). 

P1R.T.W.I...51H •- number of columns your printer will print 
: ~l''T^NW.1.DTH -• number of columns on your screen 
SCRNDKi-' ! H -- number of lines on your screen 
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Var i atal es 



SPLM -LIB initializes a starting origin for variables and 

t hen dynamically alio c a t e s s p a c e f a r all the vari a b 1 e s in b a t h 
the libraries and your program. Only variables which a.re 
s p e c i f i c a 1 1 y as s i g n e d 1 o c a t i o n s b y y o ur program (as o p p o s e d t o 
those for which space must be dynamically allocated) may be 
declared prior to including this library. 

it is permissible to remove the variable? origin from the 
library and place it on the first variable in the program, 
provided that that variable really is the first variable to be 
d y n ami c a 1 1 y a 1 1 a c a t e d s p a c e i n t h e p r o g r a m a n d p r o vide d t h a t a 1 1 
variables which are listed in the library source as page (3 
variables remain so (the type of addressing used in library GEN 
statements requires them to be "page 0" type variables) „ 

Most of the library variables are intended to serve solely 

for passing parameters to and from certain routines. A routine 

may use ami /or change both its own parameters and any other 
I i b r a r y v a r i a b 1 e . 

Except that there ar<s certain library variables which, by 
design, can be guaranteed to at all times hold certain 
information (set either by the library itself, by vour program, 
or by ei ther ) : 

kiypiB. 

LINPTR, an ADDR variable, is designed to point into the line 
buffer „ It is initially set by LI BIN IT to point to the 
first character of the first argument on the command line 
(following the program name which invoked this program 
itself)., If no arguments exist on the command line, it 
points to the c.r terminating the command line. LINPTR is 
automatically reset by the INBUFF routine and advanced by 
the NEXTCHAR routine. LINPTR must be set to point to a 
filename before calling many of the disk routines,, 

HOURS, MINUTJES, SECONDS, HSECONDS 

These BYTE variables must be set. before calling SETT I ME. 
They hold their values -- after being set or after a rail to 
BETT-IME. 

YEAR* MQNJJH, DAY 

These variables must be set before calling SETDATE. They 

hold their values after beinq set or after a rail to 

BETDATE. 

LASTTERM 

This type BYTE variable holds the last terminator - the most 
recent non-alphanumeric character encountered by 01 ASS (and 
thus by NEXTCHAR, OUTDEC, OUTHEX , and OUT ADDR) . 
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CURCHAR 



This BYTE variable holds the most recent character parsed hv 
NEXTCHAR. y 



REVCHAR 



This BYTE variable holds the character previous to the mast 
recent character parsed tav NEXT CHAR. 



BUF-FER 



LIBI.NIT sets BUFFER to the address o-f the -first byte 
available -for a user --program data buffer. 



MEMEND 



UBINIT sets MEMEND to the address o-f the last byte 
available -for a user-program data buffer. 



PRION* QOMON 



These BYTE flags, initialised FALSE by LIBINIT, indicate 
whether the printer and communications line respectively 
have been initialized. 



Copyright (c) 19S3 SOFTWEST 



SPL./M LibrariesSPLM .LIB: Library Initialization page 8 

Li b r a r y In. it. i all 2 at , i , on 
LIBINIT 



This routine initializes the libraries and sets up the line 
b u f f e r , a n u m ber o f v a r i a b 1 e s , a n d t h e -file c o n t r o 1 b 1 o c k s 
necessary -for reading or writing to disk. 

When a program reaches main, the first code put is a call to 
L I B I N IT „ This is done automatically, provided you've 
previously included LI BIN IT in your file (either 

' : "jf"'bfl .LIB's LI BIN IT or your own),, This guarantees that 

whole sets of parameters on which other library routines 
depend will be initialised. If you haven't included 

kPLM -LIB, or if LI BIN IT has been removed from the library 

or its name changed, then no automatic call is generated. 

LIB I NIT sets up; 

BUFFER, an ADDR variable which holds the address of the 
first byte of buffer space available to your program." 

MEMEND, an ADDR variable which holds the address of the 
highest memory location available to your program. You 
may design a text-processing program, for example, to 
read in as much text as possible,, filling memory from 
the location in BUFFER to the location in MEMEND. 

A line buffer, which holds the command line, and 
I... I NPTR , an ADDR wm~ i ab 1 e , wh i c h p o i n t s i n t o t h e I i n e 
buffer. Initially, LI NPTR points to a cr (0DH, a 
carriage return) if the program name was the only word 
typed on the command line which invoked the program. 
Otherwise, LI NPTR points to the first non-delimiter 
character fallowing the program name. (Warning; 
Calling IN BUFF changes the contents of the line buffer 
and resets LI NPTR to point to the beginning of the new 
contents,, ) 

File control blocks: If you have literally declared 
NEEDRFCBS to be 1 or 2, then LIBINIT creates 1 or 2 
read file control blocks, respectively,, If you have 
literally declared NEEDWFCBS to be 1 or 2. then LIBINIT 
creates 1. or 2 write file control blocks. 

Initial I/O vectors: 

PUTTERM is vectored to output normal screen 
characters (as opposed to reverse,, boldface, 
etc. ) . 

PUTCHAR is vectored to PUTTERM, to put characters 
to the screen,, 

GETCHAR is vectored to BETTERMINVIS , to get 
characters from the keyboard. 

Flags PRION and COMONs set false to indicate that 
neither printer nor communications line has been 
:i. n:i. ti al i^ed . 
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MSDOSs Interrupts are enabled (making the keyboard live 
even when the program is elsewhere). 

FLEX:: The screen pausing flag and the screen width are 
saved for restoration in DOSRET,, 
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^QM'I§..L ROUt 1 HES 



DOSRET 



This routine terminates a. program, restores any previously 
saved parameters, and returns to DOS.. 

The last code put in a program is a call to DOSRET s 
this is done automatically when the EOF end-of—file operator 
is parsed, provided you've previously included DOSRET in 
your file. 



UPPER 



This routine converts lower to upper case; If the ASCII 
value in the BYTE variable CHAR represents a lower case 
letter-, it is c o nverte d t o u p per' case. 



CI ASS 



This routine classifies the value in the BYTE variable 
CHARs Upon exit, if the value in CHAR is not a letter or a 
number (not alphanumeric), the BYTE variable ERROR is set 
TRUE and the value in CHAR is automatically stored in the 
BYTE variable LASTTERM; on the other hand., "if CHAR is 
alphanumeric, ERROR is set. FALSE. 



CLASSALPH 



This routine also classifies the value in the BYTE variable 
CHARs Upon exit, if the value in CHAR is not a letter (not 
alphabetic), the BYTE variable ERROR is set TRUE; on the 
other hand., if CHAR is alphabetic, ERROR is set FALSE. 



CLASSNUM 



This routine also classifies the value in the BYTE variable 
CHAR: Upon exit, if the value in CHAR is not a number (not 
numeric) , the BYTE variable ERROR is set TRUE; on the other 
hand, if CHAR is numeric, ERROR is set FALSE. 
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iMlM.DiiL fiQy.t.i.D.ii..l. 

CLRTERM 

A call to CLRTERM clears the terminal screen,. 

MSDOS;: CLRTERM calls the IBM BIGS INT 10H. 

FLEX; CLRTERM clears the screen by sending the 
c. h a r a c t e r i n Z Z C L R ( n or m a 1 1 y t he -for m f e ed c h a r ?r+pr, C H ) t o 
PUTTERM. 

P.UIIERM 

Output, the character in CHAR to the terminal. If the 
character is a carriage return, then if ADDLFT is other than 
zero, then a line -feed is also output, I-f the character is 
a backspace:-!, and the terminal can backspace, then PUTTERM 
does the backspace, writes a space at this position, and 
rem a i n s t here, 

PUTTERM is revectorabl e. LIBINIT initializes PUTTERM 
to a standard teletype kind of output to the screen (one 
character at a time at the cursor, with the cursor position 
moving right and down). Calling the BEGSPECI ALSCRN routine 

in the SCRIM. .LIES library revet: tors PUTTERM to the screen 

output routine in that library, which allows cursor 
positioning and bold, reversed, and underlined characters. 
Calling ENDSPECI ALSCRN resets PUTTERM to teletype screen 
output . 

PUTTERM is intended primarily -for guaranteeing message 
output, to the screen regardless of where the main output 
t h r o u q h P U T C H A R i s v e c t o r e cl . 

FLEX: I-f PUTCHAR is outputting to the printer, PUTTERM 
w i 1 1 i g n o r e t h e 1" T Y 3 E T par a m e t e r s I i k e w i d t h a n d p a u s i n g . 

pyiiiEMSPc. 

Send one space to the screen. 
PyiliBMNUMjBPC 

Bend NUM number of spaces to the screen (set IMUM equal to 
the number of spaces van want before calling 
PUTTERMIMUMSPC) . 

PUIIERMCRLF 

Send one carriage return (and, if ADDLFT is not zero, a 
f n a t c h i n g 1 i n e f e e d ) t o t. h e s c r e e n . 

PyilERMNyMCRLF. 

Send to the screen NUM number of carriage returns (and, if 
ADDLFT is not zero, matching line feeds). Set NUM equal to 
the number of CRLFs you want before calling PUTTERMNUMCRLF. 

PUTTERMSTR 
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Output to the screen a string which is terminated hy a zero 
(0) (the zero indicates the end of the string; it is not 
output),. Set MSGA to the location of the -first bytP in'th* 
string before calling PUTTERMSTR. For example: 

DCL MSB1 DATA (CR,'This is a message. ',0); 
MSGA-., MSG1 ; /*Set MSGA to point to MS61*/ 
CALL PUTTERMSTR;! /*Output MSG1 to the screen*/ 

Py.IM.LL 

R in g t h e t e r m i n a 1 ' s b e 1 1 . 

Get one character from the keyboard and echo it to the 
screen. This and the other get-character routines will halt 
a program until a character is typed on the keyboard. 

MS DOS n None of the routines which get a character from 
the keyboard will return extended ASCII (a followed by a 
code)., except that a followed by a 3, which represents the 
C"l"RL--<f!,, is returned as its accepted ASCII value of 0. Other- 
extended ASCII characters B.r<s ignored and the routine 
c on t i n u e s t o a w a i t a v a 1 i d c h a r a c t e r « 

HilXERJlINVIS 

Get one character 'from the keyboard and do not echo it to 
the screen. 

FLEXs The FLEX operating system does not provide an 
echo-less getchr routine. So the library routine goes 
directly to the SWTBUG monitor to turn off echo be-fore 
calling FLEX's GETCHR. Other monitors may require revisions 
t o t h is r ■ o u t i n e ,. 

KBDSTAT 



Check the keyboard. If a key has been pressed, CHAR is set 
TRUE (to read the depressed key, follow with a call to 
GETTERM or GETTERMINVIS},, If no key has been pressed, CHAR 
is set FALSE. (To actually read a pressed key, call 
KBDSTAT ", if it returns TRUE, then call GETTERM or 
GETTERMINVIS. ) 

6800 FLEXs KBDSTAT is dependent on ZZKBDTYP being set 
to for serial keyboard or 1 for parallel keyboard, and on 
XZKBDLOC,, initially set for the keyboard to be connected to 
Port 1 (location 80O4H) ., 



INBUF 



Input a line (terminated by the user pressing ENTET'< or 
RETURN) from the keyboard into the line buffer, A c:r is 
placed in the buffer at the end of the line. On exit, the 
A DDR variable LIMPTR points to the first character in the 
line buffer. Motes The-? line buffer is used on entry to a 
program to hold the remainder of the command line; since 
calls to INBL1FF would replaces that command line with the 
line from the keyboard, any parsing of the command line must 
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be done prior t o calling I N B U F F 
ME XT CHAR 



Get the character pointed to by LT.NPTR and both return it. in 

CHAR and save it in CURCHAR < after first saving CLIRCHAR's 

contents to PREVCHAE) . NEXTCHAR calls CLASS be-fore 

r e t u r n :i. nq: i f C H A R i s a 1 p h a n u fit e r i c , E R R R i s s e t F A L S E s 

otherwise, ERROR is set TRUE and CHAR is also stored in 

LASTTERM. 

If CHAR is a carriage return (or in FLEX: if it's 

either a c.r or the TTYSET End -of Line character) „ then 

I....INPTR is not advanced, and subsequent calls to NEXTCHAR 
return the same character. 

1 h e r w A s e , L I. N P T R i s advanced to no i n t t o t he next 
character in the line buffer. If CHAR is a space, then 
NEXTCHAR advances LINFTR to point to the first non-space 
character (so multiple spaces are skipped and a single space 
i s returned ) . 



C o d v i"' i q h t ( c: ) 1 9 8 3 S F T W E S T 



SPL/M Litarari esSPLM -LIB: Red! rec table Routines pane 14 

Re d i r e c t a b 1 e R o u t :i. n e s 



"CHAR 



Output the character in CHAR,, LIBINIT initializes PUTCHAR 
to output to the screen,. PUTCHAR is revect.ora.tale to the 
printer (CALL PICKPUTPRT), to the communications line 
(PICKPUTCOM) , or to either disk file that's been opened for 
writing (P1CKWFCB1, and PICKWFCB2) , as well as restorable to 
the screen (RSTRPUTTERM) . See PUTTERM, PUTPRT, PUTCOM , 
WBTD1 , and WBTD2 for details on how characters are output to 
each device. In the case of output to the screen, 
revectoring PUTTERM to special screen capabi 1 i t i es ' (bol d and 
reverse characters and cursor positioning! See SCRN .LIB) 
revectors PUTCHAR 's screen output to those capabilities, 
too. 

BSTRPUITERM 

Calling RSTRPUTTERM revectors PUTCHAR to the screen. If 
it's already vectored to the screen, there's no effect. 
F L E X : C a I 1 :i. n q R S T R P U T T E R M a f t e r p r i n 1 1 n g rest o r e s 
FLEX ' s screen parameters ( p ausi no , wi dt h ) . in add i t i on +■ o 
re vector in a PUTCHAR to the screen,, 

PUT SPG 

Send one space out through PUTCHAR. 
PUTNUMBPC 

Send MUM number of spaces out through PUTCHAR (set MUM equal 
to the number of spaces to be output before ral ] i nq 
PUTMUMSPC) . 

PUTCRLF 



Send one' carriage return (and line feed if the appropriate 
ADDLF add-line feed flag is not zero) out through PUTCHAR, 



PUTSTR 



Output through PUTCHAR a string which is terminated by a 
z e r o ( m ) u t h e z e r o t e r m :i. nato r i s n o t o u t p u t . Set M S G A e q u a I 
to the address of the first byte in the strinn before 
call in q PUTSTR, 



SETCHARINVIS 



Set one character: do not echo it to the screen, 
SETCHARINVIS is redi rectabl e. Initialized bv LIBINIT to get 
the character from the keyboard, SETCHARINVIS may be 
redirected to get it from the communications line 
(PICKSETCOMINVIS) or from either read file (PICKRBFDl and 
PICKRBFD2) ., RSTRGETTERMINVIS restores SETCHARINVIS to get 
its c h a r a c t e r s from the k e y b o ard aqain. 

T h e r e :i s n o r e d :i. r e c t able G E T C H A R r o u t i n e i n t h e library 
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(get one c h a r a c t er and e c: ho it to the s c reen) : If you don't 
need redirection but you want echo, then call 6ETTERM; if 
you really do need both redirection and echo, then make two 
calls, the first to GETCHARINVIS ,, the second to PUTTERM. 

f :<SIR6ETTERHINVIS 

Restores the GET TERM 1MV IS keyboard input routine as the 
source of characters for the redirect able GETCHARINVIS 
rout i ne„ 
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Coml i ne Rout i nes 



Comline routines are desicmed to put characters out through 
a it R S 2 3 2 p o r t t o a c o m m u nicat. i o n s line, o r t o get c h a r a c t e r s f r o m 
that communi cat i. oris 1 i ne. 

Comline routines are not normally c o m p i 1 e d s They are 
conditionally compiled tay the compiler directive #IF NEEDCOM „ 
which defaults to FALSE. To compile the comline routines, type 
DCL NEEDCOM LIT 'TRUE'; in your program before the ft INCLUDE 
SPLM .LIB,, 

COM :i: N I T 



Initialize the communications line,, This routine is called 
automatically upon the first call to either GETCOM or 
PUT COM, if it hasn't been already initialized by a direct 
call., (It knows because of the BYTE flag COMON. ) 

FLEX and MSDOSs A nonportable BYTE DATA item, 
ZZCOMDEFS, is set to initialize the communications line for 
no parity, 1 stop bit, and 8-bit word length,, 

MSDOSs ZZCOMDEFS also sets the IBM's 
software-controlled default baud rate to 2400 baud. Comline 
routines assume the first RS232 card. The COMINIT routine 
uses the IBM BIOS INT .1.4H„ 

FLEX: The hardware controls the baud rate. The 
nonportable ADDR DATA item ZZCOMPORT locates the 
communication line ACIA in Port (location 8000H) . 

Output a character in the BYTE variable CHAR to the 
c: ommu n ica t :i. o ns 1 i n e . If necessary (if COMON is FALSE), 
■first call COMINIT to initialize the comline. If the 
character is a carriage return and ADDLFC is not zero, then 
PUT COM puts a line feed to the comline following the c:r „ 

FICKRUTCOM 

Reveetor PUTCHAR's output to PUTCOM. 
PUTCOMBTR 



Output the string, terminated by and pointed to by MSGA , 
to the communications line. 



GETCOM I NV IS 



Get a character from the communications line (no echo to 
s c r een) „ I f n e c e s s a r y ( i f C M N i s F A L S E ) , f i r s t c a 1 1 
C M I N I "I" t o i n i t ialize t h e c o m 1 i n e „ 



GETCOM 



Bet a character from the communications line (by calling 
GETCOM I NV IS) „ then echo the character to the screen. 
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f:.ii^iiic!;M.iN.y.is i 

Revector GE'I'CHAR to get its characters from GETC0MINV1S,, 
COMBT.AI 

Check the status of the communications line. CHAR is set 
TRUE if a byte is ready to be received (receiver data 
register is full). SENDFLAG is set TRUE if communications 
line is free to send another byte (transmitter data register 
i s empty) ., 
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If' 'CJ: SI t . e r ■; R o u t i n e s 



Printer routines are desianed to output characters to a 

nri liter „ 

Printer routines, like comli ne routines, are not normally 
compiled; They are within a #IF NEEDPRT conditional compiler' 
directive, and NEEDPRT is by de-fault FALSE,, To compile the 
printer routines, type DCL NEEDPRT LIT 'TRUE':: in your program 
be-fore the # INCLUDE SPLM .LIB. 

PRIJLNII 

Initialize the printer. This routine is called 
a u t o m a t i c a 1 1 y u p o n t h e f i r s t e a 1 I t o P U T P R T , if i t h a s n ' t 
already been called directly <it knows because the BYTE -f 1 aq 
PRTON remains FALSE until PRTINIT is called). Suqqestion; 
Because FLEX can return -from PRTIMIT uninitialized' (because 
i t c an ' t f i n d PR I NT „ SYS , or b ©cause t h e p r i n t er is a 1 read y 
busy spooling), you will be safest to call PRTIMIT directly, 
1 1-, e n t e s t f o r P R T N b e i n g true ( s u c c e s s -f ; u 1 i n i t i a I i ;•; a t i o n ) ., 

FLEXs PRTINIT loads PRINT. SYS if necessary. It also 
turns pausing off and sets TTYSET width to (3. 

PUTPRT 



Output a character in the BYTE variable CHAR to the 
printer. If necessary (if PRION is FALSE), first call 
PRTINIT to initialize the printer. If the character is a 
carriage return and ADDLFP is not zero,, then PUTPRT puts a 
line feed to the printer following the return. 



IOKPUTPRT 



R e v e c t o r P U T C H A R ' s o u t p u t to P U T P R "I" „ 

FLEXs Turns off pausing and sets the TTYSET width to 
0, (Previous width and pausing status are saved s they are 
restored by calls to RSTRPUTTERM or DOSRET.) 



PUTPRTSTR 



Output the string, which is terminated by t3 and pointed to 
b y M S G A , t o t h e o r i n t e r „ 
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.'!" l.!?l?/ Q.#.t.s Rout ines 

SETDATI. 

Set the month, day and year. Be-fore calling, set. BYTE 
variable MONTH equal to 1 to 12, BYTE variable DAY equal to 
1 to 31, and ADDR variable YEAR equal to 1980 to 2(379. On 
return,, ERROR is FALSE it the set operation was successful. 

SETT I ME 



Set the time. Before calling, set BYTE variables HOURS to 
to 23, MINUTES to to 59. SECONDS to to 39, and HSECONDS 
(hundreds o-f a second) to to 99. On return, ERROR is 
FALSE if the set operation was successful. 

FLEXs If you have a clock card, you'll have to rewrite 
this routine to set it; as written,, it returns with ERROR 
set. TRUE. 



GETDATE 



Set the date,, On return, MONTH equals I. to 12. DAY equals 1 
to 31, and YEAR equals 1980 to 2079. 



GETTIME 



Set the time. On return, BYTE variables HOURS should return 
to 23, MINUTES to 59, SECONDS to 59, and HSECONDS 
(hundreds of a second) to 99. If time is not available, 
all will be set to 0FFH. 

FLEXs If you have a clock card, you'll have to rewrite 
this routine to get it; as written, it returns with all four 
v a r i a b 1 e s set t o F F H . 
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Hove Routines 



Move routines are designed for movinq an array of bytes from one 
location to another. Notes These routines should not be used if 
the source and destination arrays overlap. 

MCSVEGR 



Move a line of any lenath ended by a cr from SOURCE to 



Df ( 



Set SOURCE and DEST,, pointers to the beginning bvte 



o -f t h e s o u rce a n d t h e d e s t i n a t i o n a r r a y s „ b e f o r a c a 1 1 i n q „ 
MOVENUM 



Hove NUM number of bytes from SOURCE to DEST. Set SOURCE 
and DEST, pointers to the beginning bytes of the source and 
the destination arrays, and IMUM before calling., 



MOVECRNUM 



Move a line ended by a cr - but. a maximum of MUM fovtes -™ 
From SOURCE to DEST,. Set NUM, SOURCE and DEST before 
calling. If a cr is not found by the NUMth byte,, the IMUMth 
byte at the destination is set to a cr „ 
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Numb er Rout :i. nes 

Number output routines arv designed to output 
(redirectably) „ in either hen or decimal form, numbers which are 
held in a variable,, Number input routines are designed to take a 
string of hex or decimal digits, convert them into a number in 
binary form, and return it. in the ADDR variable NUM. 

Number routines arcs not normally compiled; They ar& 
conditionally compiled based on NEEDNUMS, and NEEDNUMS defaults 
to FALSE. To compile the number routines, type DCL NEEDNUMS LIT 
'TRUE '3 in your program before the # INCLUDE BPLM .LIB. 

FLEX; The number output routines are redirectabl e both for 
portability and for useabil ity. If you need solely to send 
numbers to the screen, you may use FLEX's number output routines, 
w I" i i c hi a r e m u c h s h o r t e r s 

Replace the innards of PUT DEC withs 

GEN < 0D6H „ „ LEADSPC ) ; / *LDAB LEADSPC* / 

GEN (0DEH , . DGTA) 5 /*LDX DGTA*/ 

CALL. 0AD39H: /*CALL FLEX'S OUTDEC ROUTINE*/ 

ft e p I a c e t h e i n n a r d s o f P U "!" H EX w i t h s 

GEN < KDEH „ . DGTA ) ; / *I....D X DGTA* / 

CALL 0AD3CH; /*CALL FLEX'S OUTHEX ROUTINE*/ 

R e p 1 a c e the innards o f P U 7 A D D R w i t h :: 

GEN < 0DEH , ,. DGT A ) ; / *LD X DGTA* / 

CALL 0AD45H; /*CALL FLEX'S OUT ADR ROUTINE*/ 



PUTDEC 



Output (redirectabl e) in decimal an unsigned 16-bit number, 
the address of which is in DGTA. Before calling., if the 
number is held in a BYTE variable, then reassign it to an 
ADDR variable; set DGTA to point to the address of the ADDR 
variable which holds the number. Set. the BYTE variable 

LEADSPC equal to TRUE to right .justify the number in a 

five-character field (that is to say, to print a space for 

each leading zero); set. LEADSPC t o F A L S E t o left justify the 

number (to output only digits starting with the first 
"ion zero one) . 



PUTHEX 



Output (redirectabl e) as two he* digits s^n unsigned 8 bit 

number, the address of which is in DGTA. Before calling,, 
set DGTA to point to the address of the BYTE variable which 
h o 1 d s t h e n u m b e r „ 



PUTADDR 



u t p u t ( r e d i r e «::: t a b 1 e ) a s f o u r hex digit s a n u n s i q n e d 1 6 b i t 

number,, the address of which is in DGTA,, Bafore calling, if 
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the number is held in a BYTE variable,, then reassign it to 

n ADDR variable or call PUTHEX instead; set DGTA to point 

to the address of the ADDR variable which holds the number. 



ivX 



GETHEX 



Get unsigned hex digits and convert them into a 16 bit 

binary number. If the hex digits 3.re already in memory,, set 
LINPTR to point to the address of the -first digit. Or to 
get the hex number from the user. CALL INBUFF. then CAM 
GET HEX, 

On returns ERROR is TRUE if LINPTR points to an 
invalid number or FALSE if LINPTR points to a valid number 
or to a separator character; use ANYDU3ITS if ERROR is FALSE 
■■ then if ANYDIGITS is other than zero then LINPTR is 
pointing to a valid number, but if ANY DIG ITS is zero then 
LINPTR points to a separator character,, If a valid number 
is found, it's returned in NUM (truncated to 16 bits); MUM 
returns a zero if LINPTR points to a separator character; 
I i im p j- r | s ;|. G .f t pointing t o the chara c t e r f o 1 1 o w 1 n g t he 
separator character, unless the separator is a cr ' (th(=> same 
rule as for NEXTCHAR) ,, 



6ETDEC 



Get an unsigned decimal number (a series of ASCII decimal 
digits) and convert it into a 3.6---bit binary number. If the 
number is already in memory (as digits in a string),, set 
LI N P "I" R t o p o i n t t a t h e a d d r e s s o f the f i r s t digit. r t o 
get the decimal number from the user, CALL INBUFF, then CAM 
GETDEC. 

On return: ERROR is TRUE if LINPTR points to an 
invalid number or FALSE if LINPTR points to a valid number 
or to a separator characters use ANYDIGITS if ERROR is FALSE 

then if ANYDIGITS is other than zero then LINPTR is 

pointing to a valid number,, but if ANYDIGITS is zero then 
LINPTR points to a separator character. If a valid number- 
is found, it's returned in NUM (truncated to 16 bits); NUM 
returns a zero if LINPTR points to a separator character; 
LINPTR is left pointing to the character f o I 1 o w i n g t h e 
separator character,, unless the separator is a cr (the same 
!"■ u 1 e a s f or- NE X TCH AR ) „ 
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IB 



3CRN 



..LIB is made up of;: 



GPLM 
i 3 ,. 



<::: Li. r s o r d o s i t :i. o n i n q r o u t i n es, a n d 
special screen character routines,, 

Routines in this library call routines located in 

" Llfci * so that library must be included before this one 



, aLKN -I--1B is written for- specific terminals; it may or m*y 

not be portable to yours. The SCRN .LIB library' has the least' 

portability of the libraries. Each SCRN .LIB library support^ 

a single terminal,, Terminals must have go to-x-y addressing to 

be able to implement anv of the cursor functions in the lihrary; 
a program which uses these functions is not portable to computers 

with terminals which cannot go to x-y. On the other hand, 

programs which call for characters to be displayed in reverse 
boldface, or underline are portable to terminals without *,, rh ' 
character attributes, but without the specially displayed 

characters? in this case, the SCRIM .lib routines would be dummy 

routines they would consist only of 

name: PROCs 
ENDs 
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QLIE..1QL.. Pgjij. t j. on ;i. ng 

; -> CRN .LIB provides a set of routines which set and get the 

c ur sor p os i t :i. on , sn d wh i c h c 1 ear a 1 i n e or 1 i nes st ar~ t i n g f r om 

the cursor position,, Terminals must have go to-x-y addressing to 

tae able to implement any of the cursor functions in the library: 
since each terminal is different, each terminal needs a 
SCRN „ L. I B c u.st om-d es i g n ed f or i t „ 

GEJCUESPOSN 

Bet the current cursor position into the BYTE variables ROW 
and COLUMN,, The upper left, position is <0,0). 



•:::• n ■:::: 



: 'OSNCURB 



Hove the cursor to the position specified by the BYTE 
v a !- i a b 1 e s R W a n d C L L J M N . T h e u p p e r left p o s i t i n n i <=; 
((3,0). 



HOMECURS 



Hove the cursor to the home position (the upper left 
corner) , which is row 0, column 0. 



CURSDOWN 



Move the cursor down one row,, but maintain the same column 
oosition. If the cursor is already on the bottom row, do 
not change its p o sit i on. 



CURSUP 



Move the cursor up one row, but maintain the same column 
position. If the cursor is already on the top row,, do not 
change its position,, 



CURSFORWARD 



Move the cursor forward one column, on the same row. If the 
cursor is already in the last column, do not change its 
posi ti on „ 



CUR3J3ACK 

Move the cursor back one column, on the same row,, If the 
cursor is already in the first column, do not change its 
position,, 

CLREOL 

Clear from the cursor to the end of the line. 

CLREQS 

Clear from the cursor to the end of the screen. 
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E : DF;cial St. r eon Charge ters 

'^ ( - : ! "' : ^ » I- 1 B p r o v i d e is a s e t o f r o u t :i. n e s f o r send i n q 

characters to the screen with special attributes - bold, 
underline, and reverse. If the terminal to which a particular 

^ L;, "- N -LIB is directed does not support one or more of these 

■features,, a CAI L. to those routines does nothing, 

P EG3P EC I ALS CRN 

Redirect the output of PUTTERM (and, when goina to the 
screen, o-f PUTCHAR ■- that is, redirect the output of all 
screen output routines) -■■ to a screen driver which allows 
output of characters with special attributes. This routine 
does not turn on any of the special attributes - that's done 
using BEGULCHARS, BEGBFCHARS , and BEGREVCHARB, 

The routine also takes care of any initialization 
required to prepare for output of special characters,, For 
example, SCRN00FG. LIB for the 680(9 FLEX GIMIX video card, as 
written, initializes the card to allow reverse characters to 
be output „ 

If the terminal has 1 ol i qht /hi 1 i ght capabilities,, then 
BEGSPECIALSCRN puts it into 1 alight mode,, On the IBM, this 
causes no change, with normal characters output as before,, 
and boldface characters in the IBM's double-intensity mode. 
On many terminals, however, 1 alight is hal f -intensi tv; on 
these terminals, BEGSPECIALSCRN initializes the terminal so 

that normal characters iwe now output as half intensity., 

with boldface characters output at the normal intensity, 

iNOSPECJALSCRN 

Return screen output to normal channels? do not allow 
c: h aracter s t o be output w i t h s p e c i a I a 1 1 r i butes. 

BEGULCHARS 

Begin underlining! Underline every character which follows 
which is sent to the screen. 

BEGBFCHARS 

Begin boldfacings Boldface every character which follows 
which is sent to the screen. 

BliSEVCHARS 

Begin reversing : Reverse every character which follows 
which is sent to the screen, 

EMyLCHARS. 

I!:- n d u n d e r 1 1 n i n g o f c h a r a c t e r s t o t h e s <::: ree n „ 
ENDBFCHARS 
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"c. n cl b o 1 d f a c i n q o f c h a r a c t e r s t o t h e s c r e e n „ 
>[DREVCHARS 

End reversing o-f characters to the screen. 

IIB.NJPB11QHARS 

End any special character attributes beinq sent to the 
screen, and restore output o-f normal characters (but don't 
revector the screen output routines from the special 
character screen driver •-■ that's a iob for 
ENDSPECIALCHARS) . 
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R.OWT ..LIB 

RDWT »LIB creates a portable set o-f routines for reading 

■«■ r n m a n d w r i t :i. n g t o d i b k „ 

iext files pose a portability problem;! Some systems, like 
f-'ISDQS, terminate lines stored on disk with two bvtes, a rr/1 f 
pair:; others,, like FLEX, use a single byte, a c.r' H as ' a 
t e r (v i i n a t o r . F o r p o r t a b i 1 i t y , 1 i n e s are ret u rned' b y the S P L / M 
library read routines terminated by a single er , regardless o-f 
swstem. Thus, in the MSDOS operating system., in which lines in 
standard text files on disk s^re terminated bv carri ane 
return-linefeed pairs, the SPL/M text-file wr i te-byte-to-di sk 
routines automatically write a linefeed character to disk after 
writing each carriage return character to disk. Similarly, the 
MSDIJS library routines to read bytes from disk automatically 
strip off a linefeed which immediately follows a carriage return 
:m a standard DOS file,, In FLEX text files,, on the other hand, 
linefeeds are not added or removed, since lines in standard FLEX 
text files on disk are terminated only by carriage returns, 

RDWT .LIB is made up o-f: 

constants , 

d i s k u t i 1 i t y r o u t i n e s , 
r e a d file routines,, and 
write f i 1 e i - o u t i n e s . 

Routines in this library call routines located in 

S::!PLM «LIB„ so that library must be included before this one 

i s * 

All successful calls to disk routines return the BYTE 
variable ERROR set. FALSE; if there was anv problem, however, 
ERROR is returned set TRUE, The BYTE variable ZZERRWD mav also 
he set to one o-f- the error literals to indicate which tvpe of 

error occurred? but all start with the '11 ' non portability 

indicator because, unfortunately,, the types of errors which may 
be returned from disk routines vary enormously from one system to 
another. 

Three #IF statements control generation o-f code within 

RDWT -LIB! NEEDDISKUTILS controls disk utility routines 

(directory, freespace, rename, delete, etc.),, NEEDRFCBS controls 
disk-read routines, and NEEDWFCBS controls disk-write routines. 
All B.re initialized to be false, so that source thev surround 
will not generate code. To turn on code generations declare 
NEEDDISKUTILS literally TRUE; declare NEEDRFCBS or NEEDWFCBS 
literally ' :l. ' or '2' depending on if you need one or two read or 
write files o p e n at o n c e . 

i h ere i s o n e r o u tine which is a 1 w a y s c. o m p i 1 e d , r e g a r d 1 e s s o -f 
conditional compilation, 

CLOSEAI.J....FILES 
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Close any disk -files which a.re open., either -for ij-eadinq or 
■for writinq. 
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Constants 



RDWT - LIB provides a set of constants -for portability 

between different disk operating systems: 

O f ' - T DRIVE „ SL-CONDDRIVE: FOURTHDR I VE , WQEKDR I VE „ SYSDR I VF 

A drive letter or number is specified to the directory 
routine (DIR) by sendina it a literal:; FIRBTDRT VF., 
SECONDDRIVE, THIRDDRI VE ., and FOURTHDRIVE are faij-ly obvious 
WORKDRIVE and SYSDRIVE specify, respectively, thb working 
drive (location of tent or data files) and system drive 
( 1 o c a t i o r i of c: o m m a n d s > o n s y s t e m s w h i c h have s u c ! ~t 
designations;; on other systems which have only one such 



automatically selected drive, they both specify 
dri ve." 



.he "default 



DRIVEBIAS 



DRIVER I AS is a literal which, added to F1RSTDRI VE , converts 
i t t o the A S C 1 1 c h a r a c t e r u s e d t o s p e c i f v the f i r s t d r i v e 
<'A' in MSDOS, ' ' in FLEX). A program which calls the 
directory routine might, for example, prompt the user for 
t h e d r i v e letter' o f t h e d i r ect o r y d e s ired, 



DR1VESEP 



1" h i s i s t h e AS C I I c h a r a c t e r w h i c h , in a f i 1 e n a m e 
specification, separates drive letter from filename, useful 
■for oar sing or builcli no filenames. 



EXTSEP 



! h :i. s i s t h e AS C I I c tiara c t er w h i c h i s u s e <::! t o s e p a r a t e a 
filename from its extension, useful for parsing' or building 

-fi 1 enames. 



1AXF1L.NAMLEN 



MAXFILNAMLEN specifies the number of bytes needed to hold a 
Ful 1 --length filename plus a terminator' (such as a carriage 
return),, Use this to soecify the length of an array you 
intend to use for storing or building a filename] Included 
in MAXFILNAMLEN is room for the drive letter or number, the 
drive separator, the filename, the extension separator, the 
extension, and the terminator character (e.g., 
1.FILENAME.TXT or As FILENAME. TXT •- plus a carriage return 
terminator ) „ '; 
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OiJi!i. yt.i. 1 i ti.es 



EDW'I" ..LIB provides a set. of disk utility rrudi 

Declare NEEDDISKUTILS literally TRUE before including 
library into your program to get these routines to c:o 

OETDRIVE 



IBS. 

the RDWT 
imp i 1 e „ 



Return in the BYTE variable CHAR the ASCII letter or number 
of the working (de-fault) drive,, This value may be converted 
to one of the portable literals (FIRSTDRIVE, etc!,,) by 
subtracting the literal DRI VEBI AS. i 



CHANGEDRIVE 



Change the working (default) drive to the one specified,. 
Before calling CHANSEDEIVE , set CHAR equal to the ASCII 
drive letter or number (convert one of the portable drive 
literals,, like FIRSTDRIVE,, by adding the DRI VEBI AS 
literal),, If the drive letter or number is invalid,, then an 
error message 'INVALID DRIVE LETTER' is output to the screen 
and ERROR is set TRUE (and ZZERRMQ is set eciual to ZZEIDS) . 



FREESPACE 



DIR 



Return the number of free sectors available on the disk 
specified,, Before calling, set CHAR to one of the drive 
number literals (FIRSTDRIVE,, etc.). On return, the ADDR 
variable NUM contains the number of free sectors! (unless 
ERROR has been set TRUE > „ 



Output to the terminal a directory or catalog of ! the disk 
s n e c i f i e d , :i. n c 1 u d i n g a one -•• line rep o r t o n t h e f r e e s p a c e 
left on the disk,, Pauses at screenful s (hit a character to 
continue). Before calling, set CHAR to one of tlfie drive 
number literals (FIRSTDRIVE, etc.),, To guarantee keeping 
t h e f :i. n a 1 s c r e e n f u 1 f r o m s c r o I 1 i n g o f f t h e s c r e e ill , y o u r 
calling program must put no more than one linefeed before 
pausing itself (for example,, after the call to Dtp it might 
output, a prompt preceded by a single cr using PU't'TERMSTR , 
then call GETTEEM,, which would pause to await a response). 
If there is an error in doing the directory, ERROR is 
returned TRUE:., 



FLEX; DIR uses the FLEX "DO-COMMAND" routir 
from dish: FLEX ' s CAT (or any other you choose) c< 
name of which is in the data statement,, ZZDI'RCMD 
changed "CAT" to another name, or if you wish to 
directory command other than "CAT", change the ztDIRCMD dat 
statement to the name o-f your catalog command. 



i e to c: a 1 1 
:>mmand, the 

If you ' ve 
use a 



DELETER 
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Delete a disk file. Before calling, set LINPTR Ito point to 
the first character of the f i 1 ena m e , w h i c h s h oul d b e 
terminated by a valid separator character (commaL space,, or 
cr on FLEX, far example). On return, ERROR is slat TRUE i f 
no file was deleted; and LINPTR is updated to point to the 
first c h s.rs. c t e r following tine separate r or separ 
except i t w i 1 1 point to the separat o r itself if 
carriage return. The file being deleted must no 



open , 



LEX: DELETER I LE defaults to the extension ., TXT 



stars , 
i. t ' s a 

be already 



^ENAMEFILE 



Rename a disk file,. Before calling, set DEST to point to 
t h e first c h a r a c t. e r a f w h at w i 1 1 be the new f j. 1 e i a m e , w h i c h 
should be terminated by a valid separator characters set 
SOURCE to point to the first character of the filename to be 
renamed, which should be terminated bv a valid separator 
character,, On return, ERROR is set TRUE if no file was 
renamed,, The file being renamed must not be already open. 

FLEX: The extension of the filename to be f-enamed 

defaults to „ TXT if none is specified; the extension of what 
will be the new filename defaults to the extension of the 
a r i g i n a I name if none is s p e c: i f i e d . 



etc.: 



R o u t i n e s are provide d f o r I o a d i n g a b i n a r y file 
memory. These are totally n on --portables Each i 
on different systems,, See the particular librar 
code for parameters and details. 
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Read File 



SPLM 



LIB provides a set of disk read routines 



Dec! 3>re 



or opening,, 



NEEDRFCBS literally ' 1 ' to get routines to compile f 
reading -from, and closinq one read -file at a timp.. Declare 
MEEDRFCBS 1 i t er allv 



'2' to get routines to compile -for opening, 

!. V . 



reading from., and closing two read -files simultaneous 
RD0PEN1 FORTE XT 



Open a file (which we will geriericallv call "readf i 1 el " ) for 
reading text. Be-fore calling, set LINPTR to point to the 
■f i r s t c h a r a c t e r o f t h e f i 1 e n ame; t h e -file n a m e s h l:> u 1 d b e 
t e r minated ta y a valid s eparator character, n r L t u rn, E R R R 
is set TRUE if the -filename was invalid or i -f the file muld 
not be -found; ERROR is set FALSE and R1.0PEN is s|=?t TRUE if 
the -file was successfully opened; and LINPTR is undated to 
p aint to t h e first character -following the separator ar 
separators, except it will stop and point to a carriage 
return if it encounters that character. 

MSDOS; Sets up linefeed suppression in tex-tf :i. 1 e cr/lf 
pairs; looks for CTRL-Z as end-o-f --f i 1 e flag. 

FLEX:: Sets default extension of filename to be opened 
as ,,'IXT; sets up space compression for reading text. 



RDOPENiFORBIM 



Open readfilel. for readi.no,, as above in R00PEN1.F0RTEXT ,, 
except set it up for binary read. 

MSDOS: Binary files find end-of file by coilmting bytes 

and comparing to number of bytes listed as being I in the 
•f i 1 e. "" I 

FLEX; Sets default extension of filename to be opened 
a s .BIN s d i s able s s p a c e r : a m p r e s s i o n -f o r r&a d i n g i i n a r y „ 



i;BFDi 



Read a byte from disk readfilel into the BYTE variable 
CHAR. The file must have previously been successfully 
op e n e d „ T h e c a 1 1 i n g p r o g r a m n e e d n o t c h e c k the v a 1 u e o f 
ERROR; All read errors (other than finding end ■-■■<!:> f --f i 1 e) 
fatal (they result in a call to DOSRET) . 

At the end of the files RBFD1 returns the :.ast 
character in the file; then, the next call to RBFD1. retur 
RE0F1 (read end of file) set TRUE. ERROR may al<j;; 

I " R U E: o n r e a d e n d o f f i 1. e --■ b u t use R IE ! :;: ' 1 t o c. h e c \i. 

more bytes in the file left to be read. To read 
b y t e s i. n a file i n t. o m e m o r y , y o u. might, f o r e x a m p 
•f o 1 1 o w i n q c: od e s 



are 



• n s 



o be set 

f or n o 
all the 
1 e „ use 



the 



CALL RBFD1; 

DO WHILE REOFi. -FALSE; 

MEM ( MEMOR YPO I NTEE ) -CHAR ; 

MEMOR YPO I NTER- MEMORYPO I NTER+ 1 :; 

CAL..L RBFDi. s 
END; 
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li S D B ; I n 4 i 1 gs opened f o r read! n q t e ;■; t , 

carriage-return-l i ne feed pairs return only a carriage 

r e t u r n t o y o u r p r o q r a m ; a n d C t r 1 - Z i s c o n s i d e r e d 
end of f ile. 

FLEX: In -files opened for reading text, spjice 
c o m p r e s s i o n :i. s s e t u p ; :i. n files o p enetl f o r r e a d i ib g ta i n a r y ,, 
■:=■> p a c e c o m p r e s s i on is d i s a b 1 e d „ 



RDCLOSE 



1. o s e r e a d f i 1 e 1 „ E R R R s h o u 1 d foe ret u rned F A I.... S IE 1 R 1 P E N i s 
I"- e s e t f r o m T R U E t a F A I..., S E , i n d i c: a t i n g r e a d f i 1 s 1 i s n o 1 o n g e r 
open,, Any ■file-closinq operations needed s.re per -formed. 



ICKRBFD1 



'(DDF 



Pick RBFD1. as the source for the redi rec tab 1 e input routine 
GETCI-IAR:i:NVIS„ You'll still have to open and close 
r e a d -f i 1 e 1 , t h o u q h , b e f o r e a n d after r e a d i n q -f rom it. 

iy.2F(;3RTEXT, raO.PEN2FORBIN, R.BF.D2, RDC.L0SE2, and. PJi;.CKRBFD2 

These r outines open, read -from, an d c 1 o s e a sec o ih d read 
•file; they are completely orthogonal with the set o-f 
routines just described (with the number " :L " in them) except 
that these routines use a second file control block for 
reading from disk. NEEDRFCBS must have been declared 
I. i t e r a 1 1 y ' 2 ' o r m o r e -f o r t h e s e r o u t i n e s t o c o m pile „ 
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yf"'LM ,. LIB provides a set. of disk write routines. Declare 

NEEDWFCBS literally ' :l. ' to get routines to compile for openinq, 
w r i t i n q to., a n d c 1 o s i n g o n e write f i 1 e a t a t i m e . D e c 1 a r e 
NEEDWFCBS literally '2' to get routines to compile foil- writing to 
two write files simultaneously. 

WIQPEN1F(;]RTEXT 

p e n w r i t e f i 1 e 1 f o r writing text. B e f o r e c a 1 1 i n q , s e t 
L. I M P "f ' R to point to the filename,, which should ta e I t e r m i n a t e d 
by a vail d s e p a r a t o r character,, n r e t u r n „ E R R R i s s e t 
TRUE if the filename was invalid or if the filename already 
exists as a file on the disk or if the disk is I 
write-protected (in FLEX);; ERROR is set FALSE and W10PEM is 
set TRUE if the file was successfully opened; and:! L.1NPTR is 
up dated t o p o i n t to the f i r st c h ar ac ter f o 1 1 ow i n g t h e 
separator or separators, except it will stop and! point to a 
carriage return if it encounters that character „ i 

MSDOS: Adds a final Ctrl -2 as textfile endi-of file,, 

when closing the file; automatically writes a linefeed 
■f o 1 1 o w i n g every carriage r e t u r n t o c r e a t e s t a n d a r d M S D S 
text files which can be read with the MSDOS TYPE! command 
(can be disabled by setting ADDLFD equal to zero) „ 

FLEX: Sets default extension of filename to be opened 
as „TXT;j sets up space compression for writing text. 

WIQP!EJ\I1F0RBINI 

Open writefilel for writing, as above in WTQPENlFORTEXT ,, 
except set it up for binary write,, 

FLEX: Sets default extension of filename to be opened 
as „B1N; disables space compression for reading binary. 



WBTDi 



Write one byte in CHAR to the disk writefilel. If the byte 
is a carriage return, and the file was opened to i write text, 
and ADDLFD is other than zero, then a linefeed character is 
automatically and immediately written to disk after the 

carriage return. Disk full errors return with ERROR set 

TRUE: and the character unwritten to the disk. 



WTCL0SE1 



C 1 o s e w r i t e f i 1 e 1 » 

MSDOS s If the file was opened for text, output a final 
Ctrl--Z enci-of — f i 1 e marker before closing the file,, 



'ICKWBTD1. 



Pick WBTDI as the output vector for the redirect able output 
routine PUT CHAR. You'll still have to open and close 
m i'- i t e f i lei, t h o u g h ,, b e f o r e a n c:l a f t e i'" w r i t i n g t o i t ,. 
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WT0PEN2F0RTEXT, WI0P.EN2F0RBI.N , WJBTD.2, WICL0SE2, PI.CKWfeiTD2 

These routines open., write to, and close a second disk -files 
they are completely orthogonal with the set o-F routines just 
described (with the number "1" in them) except that these 
routines use a second write -file control block fhr writing 
to disk. N E E D W F C B S must have been declared literally ' 2 ' or 
more -f o r these routines to compile. ! 
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